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SYSTEM FOR EVALUATING THE PERFORMANCE OF A 
LARGE SCALE PROGRAMMABLE MACHINE • 
CAPABLE OF HAVING A PLURALITY 
OF TERMINALS ATTACHED THERETO 

BACKGROUND 

A. The Field of the Invention, 
The present invention is directed to systems for 

evaluating the performance of large scale programmable 
machines capable of having a plurality of terminals 
connected thereto. More particularly, the present 
invention is directed to a method and a system, referred 
to in the art as a robot, which emulates the actions of 
human operators and is used for evaluating the perf ormance 
of a large scale multi-user host computer systems. 

B. The Background Art. 

As modem society has come to rely more and more upon 
the use of programmable machines such as digital computers 
for business, governmental, scientific, and other 
applications, the variety of available hardware and 
software has increased dramatically. For example, only a 
few years ago an organization looking to acquire a high 
performance computer system would have had to choose from 
only a few vendors As use of digital computers has 
proliferated throughout society, the number of vendors 
providing hardware has also rapidly expanded. 

With the number of possible choices always on the 
increase, purchasers of large scale computer systems have 
come to feel an urgent need to determine whether a 
particular configuration of computer system hardware will 
perform as specified. Very often, such large scale 
computer systems are used in organizations where a 
plurality of terminals, which may include devices such as 
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1 video terminals, keyboards, bar code readers, and other 
devices, provide communication with the CPU of the 
computer system. In such situations, measuring the period 
of time between when a user, such as a human operator 
5 using a bar code reader, inputs information to the CPU and 
the time required by the CPU to provide an appropriate 
response is extremely important. 

Not only does the response time effect the number of 
transactions which can be handled over a specified period, 

10 and thus the profitability or efficiency of the 
organization, but long delays between inputting required 
information and receiving appropriate responses causes 
dissatisfaction and aggravation to the human users of the 
system at each terminal. 

15 Since the acquisition of a large scale computer 

system is a major capital item in any organization, the 
area of computer performance evaluation has received 
increasing attention in recent years. By utilizing 
computer performance evaluation techniques before purchase 

20 of a large scale computer system, it is hoped that the 
large scale computer system which is chosen can provide 
. the best performance at the lowest possible cost. 

Moreover, computer performance evaluation techniques 
are also used by both hardware and software vendors to 

25 satisfy contractual and customer requirements that the 
computer system performs at its minimum specifications 
before the customer takes delivery. Thus, there has been 
an effort in the art to provide computer performance 
evaluation systems and techniques to test the performance 

30 of hardware, software, and combinations thereof . 

Vendors of computer hardware often times provide 
potential customers with specifications indicating that a 
particular configuration of some large scale computer 
system will carry out "X million instructions per second 
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(MIPS) 11 or some other criteria of computing speed and 
power. Unfortunately, such specifications provide little 
reliable information concerning the performance of a large 
scale computer system having many, perhaps hundreds or 
thousands of communication ports, each having a terminal 
connected thereto and also requiring an interface with 
peripheral devices such as magnetic disc drives ;and other 
devices. 

The economic incentives of being able to accurately 
predict whether a combination of computer hardware and 
software will perform as specified has lead to the 
development of various approaches and techniques to 
carrying out computer performance evaluations. 

The performance of computers is a function of many 
interrelated considerations, including the programming 
tools available, the size of the problem to be solved, the 
algorithm used to solve the problem, the computer 
operating system's efficiency, and the architecture of the 
computer. Generally, three approaches are used to conduct 
a computer performance evaluation (CPE) . These three 
approaches include: (1) simulations; (2) benchmark 
testing; and (3) monitoring. 

Simulations are a technique of performance evaluation 
whereby a large scale computer system to be tested is 
simulated using software programs. When utilizing 
simulations, it is necessary that both hardware and 
software functions be simulated by the simulation program. 
Thus, a program code must be written to simulate functions 
such as magnetic disc input/ output, terminal input/output, 
data base handling, operating system's functions, and 
application program functions. 

Unfortunately, the use of simulation techniques 
requires that the simulation accurately quantify the 
performance of each of the components in the large scale 
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computer system being simulated. Without such accurate 
quantifications, attempts to predict the large scale 
computer system performance under actual operating 
conditions becomes impossible. Thus, disadvantageously, 
a great deal of effort must be spent by programmers to 
create a simulation program for each computer system to be 
evaluated. It will be appreciated that if a potential 
customer desired to estimate the likely performance of ten 
different large scale computer systems available from 
different vendors, the amount expended in creating ten 
different simulation programs (one for each potential 
computer system) may far outweigh the benefits which come 
from carrying out the performance evaluation. Moreover, 
the inherent inaccuracies and uncertainties involved in 
simulations is ever present. 

Another computer performance evaluation technique is 
referred to as benchmark testing. Benchmark testing 
utilizes a group of computer programs (sometimes referred 
to as a suite) to test specific performance capabilities 
of the host computer system. In benchmark testing, it is 
very important to define what exactly is being tested by 
each of the computer programs. Significantly, more often 
than not, benchmark test programs evaluate the quality of 
the programming code they are written in rather than the 
performance of the host computer on which they run. 

In a multi-user environment, three main factors that 
effect transaction throughput are: (l) multi programming 
level, (2) data sharing among simultaneous transactions, 
and (3) the transaction mix. In a benchmark evaluation, 
it is possible to develop statistics on multi-user 
capability of a host computer system by running a series 
of data base inquiries in a single user mode and then 
again in a multi-user mode. The results of such benchmark 
testing can then be extrapolated to estimate the 
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performance of the complete system with all terminals in 
place and operational. For example, benchmark programs 
may evaluate the difference in performance of the host 
computer system when the number of users increases from 
one to ten. The difference in performance may then be 
extrapolated to estimate the performance of the host 
computer system when 100 users are placed on a system. 

Unfortunately, such extrapolation seldom provides an 
accurate picture of host computer system performance under 
actual operating conditions. For example, benchmark 
testing results when using only a few users cannot be 
extrapolated to predict the performance of the host 
computer system when a full load of 400, 600, or more, 
user terminals are added to the system. This is due to 
the fact that many computer systems perform well up to a 
particular work load with their performance dropping 
rapidly as that particular work load is exceeded. Thus, 
benchmark computer performance evaluation techniques, 
while more desirable than simulation testing, have major 
drawbacks and disadvantages when an accurate prediction of 
host computer system performance under actual operating 
conditions is expected. 

The inadequacy of other methods of computer 
performance evaluation has lead to the development of 
various techniques for monitoring a large scale host 
computer system under actual operating conditions. For 
example, a user determining which computer system to 
acquire, or the configuration of computer system after a 
particular vendor has been selected, would, in one form of 
monitoring testing, actually assemble the complete host 
computer system with all peripheral terminal devices 
attached thereto, for example 600 user terminals, and load 
the CPU with actual application programs and data and have 
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all 600 terminals being used as if under actual operating 
conditions. 

Some forms of computer performance evaluation 
monitoring testing require hardware and/ or software which 
has been specifically developed for a particular computer 
system in order to measure the transaction throughput 
which occurs under actual operating conditions. 
Disadvantageously, the costs of such hardware and/or 
software for monitoring transactions through the computer 
system under actual operating conditions is prohibitive 
for users evaluating computer systems before purchasing 
the same* 

Moreover, it will be appreciated that organizing a 
monitoring test under actual operating conditions is a 
major logistical feat when a large number of terminals are 
involved. While the loading of data and application 
programs into a host computer system is a relatively 
simple procedure (since the applications programs and data 
will change relatively little from machine to machine) , 
20 the connecting of 600 terminals to the CPU and 
coordinating the 600 human operators for the duration of 
the evaluation session is an immense task. Moreover, 
since human operators are used to input information, the 
input rate at which information is given to the host 
2 ^ computer system cannot be accurately controlled. 

It will be appreciated that monitoring tests of a 
large scale host computer system having a large number of 
terminals connected thereto ( e.g. . 100 - 1000 terminals) 
under actual operating conditions is a very time 
consuming and expensive task. While such monitoring tests 
produce evaluations which justify a high degree of 
confidence therein, the costs and difficulty of performing 
such monitoring tests make the alternative one which is 
seldom carried out. 
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As will be appreciated from the foregoing, it would 
be considered an advance in the art to provide a system 
for efficiently evaluating the performance of a large 
scale multi-user computer system. it would also be an 
advance in the art to provide a system for carrying out 
computer system evaluation monitoring more efficiently 
than previously possible, it would be a further advance 
in the art to provide computer performance efficiency 
monitoring system which may be particularly adapted for 
use with a changing number of communication ports which 
are active on the host computer system. It would be a 
still further advance in the art to provide a computer 
performance evaluation system which is readily transported 
from one location to another and set up for use. 

Still another advance in the art would be to provide 
a system for computer performance evaluation monitoring 
under full load conditions without requiring human 
operators or terminal devices being associated with the 
host computer. It would be a further advance in the art 
to provide a system for computer performance evaluation 
monitoring which allows monitoring tests to be accurately 
repeated. It would be still another advance in the art to 
provide a system for computer performance evaluation 
monitoring that can be used with a large number of 
different host computer systems with little modification. 

It would be yet another advance in the art to provide 
a system for carrying out computer performance evaluation 
monitoring tests that is cost efficient to use on host 
computers from a variety of vendors. 

It would also be an advance in the art to provide a 
system for computer performance evaluation monitoring 
which can vary the timing at which transactions w are 
presented to the host computer system as well accurately 
vary the transaction rate. it would be still another 
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advance in the art to provide a computer performance 
evaluation monitoring system which records the time taken 
to complete each transaction. 

OBJECTS AND BRIE F SUMWAPV OF THE INVENTION 

In view of the foregoing difficulties and drawbacks 
found in the prior state of the art, it is a primary 
object of the present invention to provide an efficient 
system and method for carrying out computer performance 
evaluation monitoring of a large scale, multi-user, 
computer system. 

It is another object of the present invention to 
provide a system for computer performance evaluation 
monitoring which records the time taken by the host 
computer system for completing each transaction. 

It is another object of the present invention to 
provide a computer performance evaluation system and 
method which can readily vary the type of transactions and 
also the transaction rate from one monitoring test to 
another. 

It is yet another object of the present invention to 
provide a computer performance evaluation system which can 
be adapted to carry out monitoring of any number of 
particular host computer systems efficiently. 

It is still another object of the present invention 
to provide a computer performance evaluation monitoring 
system which may be readily adapted to test varying 
numbers of communication ports on a host computer system. 
It is another object of the present invention to 
30 provide a system for computer performance evaluation 
monitoring of a host computer system operating under full 
load but without requiring a plurality of actual terminal 
devices and human operators to operate the same. 

35 



20 



25 



SUBSTITUTE SHEET 



WO 90/10269 



PCT/US90/01026 



-9- 

1 It is still another object of the present invention 

to provide a computer performance evaluation monitoring 
system which allows a monitoring test to be repeatedly 
carried out. 

c 

It is a still further object of the present invention 
to provide a computer performance evaluation monitoring 
system and method which can be used with a variety of 
different host computer systems while requiring little 
modification. 

10 These and other objects of the present invention will 

become more apparent during an examination of this 
disclosure and during the practice of the invention. 

The present invention includes a system and method 
for carrying out monitoring of a host computer system so 

15 that a computer performance evaluation may be made of the 
host computer system. Embodiments of the present 
invention emulate a plurality of operational terminals so 
that the monitoring test is carried out as if under actual 
operating conditions for the host computer system. The 

20 system of the present invention is modular so that less 
monitoring test hardware is required as the number of 
active communication ports on the host computer system 
decreases. Since the present invention allows computer 
performance evaluations to be conducted under conditions 

25 which are equivalent to actual operating conditions , full 
confidence may be placed in the test results. 

The present invention is ideally suited for 
evaluating the performance of a large scale host computer 
system having a large number of host communication ports 

30 each being capable of communicating with a terminal. The 
system of the present invention includes a plurality of 
processing devices, central processing units (CPUs), or 
other computing devices. The use of a plurality of CPUs 
provides modularity and allows the system to be scaled to 
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the si2e (number of host communication ports) of the host 
computer system rather than requiring a large scale 
computer system to test another large scale computer 
system as was the case in the prior state of the art. 

Each CPU in the embodiment of the present invention 
is provided with a plurality of communication ports which 
comprise one embodiment of a port means. The port means, 
or CPU communication ports, are connected to the CPU's 
internal parallel bus. Means is also provided for 
individually connecting the communication ports to the 
host communication ports is included in the system. By 
the communication paths established between the plurality 
of CPUs and the host computer system, the appropriate CPU 
carries out steps which sends requests to the host 
computer system to execute identifiable tasks and the 
appropriate CPU also inputs data required by the host 
computer system. Thus, the signals received by the host 
CPU appear as if they originated from a terminal and a 
human operator. 

One CPU is preferably designated to coordinate the 
operation of the other CPUs. in many situations it is 
advantageous to use a master-slave relationship among the 
CPUs where the master CPU is provided with additional 
computational power allowing the slave CPUs to be less 
expensive and less powerful devices. A means for 
measuring the time between when the information is input 
to the host computer system and when an expected response 
is received by the appropriate CPU is provided in the 
embodiments of the invention. Preferably the time 
30 required for each transaction is recorded and the 
information on the timing of all the transactions later 
analyzed to provide important information for use in 
improving the performance of the host computer system. 
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The method of the present invention includes loading 
the host computer system with the application program and 
the accompanying data as if the host computer system were 
to be used in the final application. Various script 
programs are prepared to run on the CPUs which will cause 
the CPUs to generate signals emulating the signals which 
would be generated by a terminal connected to the host 
computer system as if the terminal were operated by a 
human operator. 

Advantageously, various data pools are created from 
the data which accompanies the application programs run on 
the host computer system. A data pool is created for each 
type of task carried out by the application program. The 
data pools contain the data which would be input if the 
host computer system were actually installed and human 
operators were present at a plurality of terminals. The 
data pools are accessible by each of the CPUs. Each 
script program run by the CPUs requests that a certain 
task or transaction be carried out by the host computer 
system and thus requires access to only one or a few of 
the data pools. In the described embodiment , all of the 
data pools and script programs reside on the master CPU 
and may be accessed by any of the slave CPUs. 

All of the scripts carrying out the same task or 
transaction access data from the same data pool in the 
order that the data appears in the data pool. 

Since the data is withdrawn from the data pool in 
linear order , and the data pools are created from the 
actual data loaded into the host computer system, a test 
may be halted at any time and the proper data item used 
when the test resumes. Since each data pool contains 
data required by only one type of script program, any 
number of similar script programs may share the same data 
pool. Thus, if the number of host communication ports : is 



SHRSTITIITF SHFFT 



WO 90/10269 PCT/US90/01026 



-12- 



increased from 100 to 600, it is generally only necessary 
to provide enough data for the script programs and, if 
desired, vary some of the script parameters of the 
programs. Most advantageously, in most circumstances the 
script programs for each task remain the same as the 
number of active host communication ports increases and 
the same data pools may be used. As will be appreciated, 
the method of the present invention avoids the impractical 
task of creating customized script programs when a large 
number of active host communication ports must be 
accommodated . 

Thus, the present invention provides great advantages 
not heretofore known in the computer performance 
evaluation field, including an economically implemented 
system and method for monitoring a large scale multi-user 
host computer system. 



BRIEF DESCPT PTION OF THE DRAWTNttS 
Figure 1 is a simplified block diagram showing the 

presently preferred embodiment of the system of the 

present invention. 

Figure 2 is a high level flow chart representing the 

steps carried out by the slave CPUs represented in Figure 

1. 

Figure 3 is a high level flow chart representing the 
steps carried out during communications with the 
communication ports associated with the CPUs represented 
in Figure 1. 

Figure 4 is a high level flow chart representing the 
steps carried out during execution of a transaction 
between an embodiment of the present invention ana a host 
computer system. 
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Figure 5 is a diagram representing one possible 
allocation of tasks among some of the communication ports 
shown in Figure 1. 

5 

DETAILED DESCRIPTION OF 
THE PRESENTLY PREFERRED EMBODIMENT 

In the description which follows, reference will be 

made to the accompanying drawings wherein like structures 

are provided with like reference numerals. Furthermore, 

10 it should be understood that the f ollowing description and 
the accompanying drawings merely set forth the presently 
preferred best known mode for carrying out the present 
invention and thus the disclosure of the invention 
contained herein should be considered only as exemplary 

15 since the invention may be represented in many embodiments 
other than those described herein. 

A. Overview 

As mentioned previously, the most accurate technique 
20 for carrying out computer performance evaluations is to 
monitor the host computer system under actual operating 
conditions. As mentioned, it is previously known to 
utilize both software and hardware mo**nitors while the 
host computer system is actually being used after it has 
25 been installed. 

As will be readily appreciated, previously available 
software or hardware monitoring techniques are impractical 
since they require actual assembly of the complete host 
computer system and a full complement of human operators 
30 to carry out the monitoring test. Even when the cost of 
assembly of the complete host computer system is 
justified, since human operators are used, repeatedly and 
accurately varying the load placed on the host computer 
system from test to test becomes impossible. In order to 
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overcome the drawbacks of previously known hardware and 
software monitoring techniques, monitoring techniques 
utilizing a digital computer as a robot were developed. 

A robot is a device which automates a monitoring 
test. The robot replaces various terminals and their 
accompanying human operators. Advantageously, the use of 
another digital computer to carry out a monitoring test on 
a host computer system allows the test parameters to be 
accurately controlled and the host computer systems 
performance to be accurately measured. 

Unfortunately, previously available computer 
performance evaluation monitoring robots all shared 
several common disadvantages. Among these disadvantages 
was the generally recognized belief in the industry that 
a monitoring robot must be of equal or greater 
capabilities and power compared to the host computer 
system to be tested. Thus, in order to test a large scale 
host computer system with 600 communication ports, it was 
necessary to use another large scale computer system with 
600 communication ports. As will be readily understood, 
the cost of acquiring a large scale computer for a 
monitoring test in many cases is prohibitive. 

Moreover, another drawback of the previously 
available monitoring robots is that a robot which was 
designed to be used with one particular vendor's host 
computer system is incompatible with another vendor's host 
computer system. Still further, even when the use of 
another large scale computer to test the host computer 
system is justified, the creation of program code for 
scripts for each one of a varying number of active 
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1 communication ports was a laborious and time consuming 
procedure* 

As will be more fully appreciated hereafter , the 
present invention overcomes the disadvantages and 
^ drawbacks of the previously available systems and methods 
for carrying out computer performance evaluation using a 
monitoring robot. 

B. The Presently Preferred System Embodiment of the 
10 Present Invention 

As will be appreciated, computer performance 

evaluation monitoring techniques have application in many 

different circumstances. One such circumstance is when a 

host computer system is being selected for use in an 

15 automated library system. 

A large library may have six hundred or more 
terminals located in one or more buildings. Some of the 
terminals are used by staff to perform functions such as 
checking out or checking in materials. Alternatively, 

20 many of the terminals are used by patrons performing 
searches to identify which materials they want to obtain. 
In both" cases, the human users desire to experience as 
little delay as possible between inputting a request to a 
terminal and receiving back the requested information. 

25 Thus, it is important to carry out a computer performance 
evaluation before accepting a particular host computer 
system configuration to be certain that the response time 
and transaction rates are acceptable while keeping 
expenditures for acquiring the host computer system as low 

30 as possible. 

Represented in Figure 1 is a block diagram showing 
the configuration of the presently preferred robot 
monitoring system of the present invention. Most 
advantageously, the embodiment represented in Figure 1 
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allows a large scale host computer system 10 to be 
monitored using a plurality of smaller processing devices 
or CPUs 100A - 100 AG. This feature allows the monitoring 
robot to be much less expensive than using a large scale 
computer to monitor another large scale computer. Even 
further, the use of a plurality of smaller CPUs provides 
modularity clearly not available when another large scale 
computer system is used to monitor a large scale host 
computer system having many active communication ports. 

While monitoring a host computer system having a 
large number of ports may require 20 smaller CPUs of the 
type represented in Figure 1, the CPUs represented in 
Figure 1 may also be divided into two groups and used to 
monitor two different host computer systems having, for 
example, only 220 communication ports each. Thus, the 
system of the present invention provides a flexible 
monitoring system which can be implemented at a much lower 
cost than previous attempts where one large scale 
computer was required to monitor another large scale 
computer. 

As shown in Figure 1, the presently preferred system 
embodiment includes a plurality of processing devices, or 
CPUs 100A - 100AG, arranged in a master-slave 
relationship. As will be understood more fully soon, the 
master-slave relationship is hot essential to carrying out 
the inventive concepts taught herein but is presently 
preferred to reduce hardware costs by concentrating 
computing power in the master CPU 100A while using less 
powerful and less expensive slave CPUs 100B - 100AG. 

In the embodiment represented in Figure l, it is 
preferred that the master CPU device 100A be one which is 
available from Everex Computer Systems of Fremont, 
California having the following attributes: 

Model: Everex STEP 286/16 
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1 



RAM: 



1 Megabyte 



Nonvolatile Memory: 



40 Megabyte Magnetic Fixed 
Disk Drive & 5.25 inch 
Floppy Disk Drive 



5 



Peripherals: 



One each of: any standard 
serial COM port, monitor, 
and keyboard. 



Each of the slave CPUs 100B - 100AG may also be 
identical to the master CPU 100A except that the fixed 
disk drive, the keyboard, and the monitor may be omitted 
from the slave CPUs 100B - 100 AG in order to reduce the 
cost and the bulk of the embodiment. rt will be 
understood that each of the CPUs 100A - 100AG is provided 
with an internal paralell communication path or bus, which 
is not explicitly represented in Figure 1, to which 
devices such as communication ports may be connected. 

Those skilled in the art will appreciate that the 
above specified CPUs are substantially equivalent to an 
IBM PC/AT computer and that while the specified CPUs are 
preferred, other equivalent machines could be adapted for 
use in the illustrated embodiment. It will be further 
appreciated that the speed of operation of the CPUs is an 
important criteria in determining whether a particular CPU 
will perform adequately. Also, as the speed of operation 
of such devices increases, it may be possible to reduce 
the number of CPUs necessary to test a host computer 
system having a constant number of active communication 
ports . 

While the arrangement represented in Figure i is 
preferred, it is to be understood that the inventive 
concepts of the present invention may be carried out 
utilizing a plurality of CPUs which are arranged in other 
than a master-slave relationship. 
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Importantly, the robot monitoring system represented 
in Figure 1 must include a communication path, generally 
a cable connection represented at 120B - 120AG, to each 
host communication port. In order to provide 

communication paths between the master CPU 100A and the 
slave CPUs 100B - iooag, four serial interface cards 104A 
- 110A are installed in the master CPU 100A. Each serial 
interface card 104A - 110A provides eight serial ports 
(designated at 112A - 118A) . Each of the serial ports are 
connected to the COM ports 102B - 102AG of the slave CPUs 
100B - 100AG by way of cables 120A. Likewise, each of 
the slave CPUs 100B - 100AG are provided with four serial 
interface cards (represented at 104 - 110 in each of the 
CPUs 100A - 1O0AG) to allow connection with up to 1024 
host communication ports (represented at 12 in Figure 1) . 
The serial interface cards 104 - 110 are preferably those 
available from GTEK, Inc. of Bay St. Louis, Missouri, 
Model PCSS-8TX serial interface card. Each of the PCSS- 
8TX serial interface cards provides eight serial 
communication ports as represented in Figure 1. Each of 
the communication ports (112 - 118) allows the CPU, with 
appropriate software discussed later herein, to 
communicate with another device, i.e. . another CPU or the 
host computer system 10. 

As can be seen in Figure l, the master communication 
ports (represented at 112A, 114A, 116A, and 118A) are 
connected to the COM communication ports 102B - 102AG on 
the slave CPUs 100B - 100AG. Thus, the master CPU 100A 
can coordinate the operation of up to 32 slave CPUs 100B - 
30 100AG. In turn, each of the slave CPUs 100B - 100AG are 
provided with four serial interface cards (112, 114, H6, 
and 118) which allow each slave CPU 100B - 100AG to handle 
a maximum of 32 communication ports (112, 114, 116, and 
118) . The communication ports on each slave CPU may be 
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referred to as "remote" communication ports since they 
appears- 1 as remote communication ports to the host computer 
system. Thus, each slave CPU 100B - 100AG may be 
connected to 32 host communication ports 12 allowing the 
represented embodiment to emulate up to 1024 terminals. 

It is preferred that the standard , RS-232 
communications protocol be used at all communication 
ports. While a communication protocol other than the 
standard RS-232 protocol could be used, use of such a 
standard serial protocol allows standard modular telephone 
jacks and cords to be used to interconnect the 
communication ports to one another. 

In the embodiment illustrated in Figure 1, the master 
CPU 100A carries out the task of recording the time 
reguired for each transaction and also coordinates the 
functions of all the slave CPUs 100B - 100AG. For 
example, one function of the master CPU 100A is to ensure 
that the operation of all of the slave CPUs 100B - 100AG 
is initially synchronized. Communication from the master 
CPU 1O0A is preferably received by each slave CPU 100B - 
100AG by a standard COM port 102B - 102AG provided at each 
slave CPU as is well known in the art. 

Also represented in Figure 1 is a terminal 130, such 
as one available from Wyse Technology of San Jose, 
California, Model 50, which may be used for real time 
monitoring of transactions and to examine the operation of 
the embodiment as will be more fully explained 
hereinafter. The terminal 130 is connected to the master 
CPU by way of the COM port 102A on the master CPU 100A. 
Most advantageously, the master CPU 10 OA and its method of 
operation as described hereinafter function as a means for 
logically connecting the terminal 130 to any one of the 
host communication ports and also allow the results of the 
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monitoring session to be viewed as the session progresses 
and to be analyzed immediately thereafter. 

The arrangement of the CPUs 100A - 100AG represented 
5 in Figure 1 are properly referred to as a computer 
performance evaluation robot. Since the robot can take 
the place of a large number of terminals and their 
accompanying human operators, a monitoring test may be 
carried out much more easily. Moreover, the confidence 
io placed in the monitoring test results obtained using the 
present invention may be the same or greater than if human 
operators were used. 



15 



20 



C * The Presently Pr eferred Method of Operation of the 
Embodiments of the Present Invention . 

Using the system illustrated in Figure 1, computer 
performance evaluations can be carried out while the host 
computer system performs under virtually the same 
conditions as actual operating conditions. One embodiment 
of the method of the present invention which allows such 
an accurate emulation of actual operating conditions is 
contained in the programming code represented in 
Appendices A - H. it will be understood that the 
programming code contained in Appendices A - H is merely 
representative of the steps to be carried out and other 
25 programming code may also be used to implement the 
inventive concepts taught herein. 

The programming code modules found in Appendices A - 
H provide the instructions necessary to adapt the system 
of the present invention described herein to perform as 
a monitoring robot for a large number of host computer 
systems. Appendix G provides scripting language 

definitions and a sample script to carry out the present 
invention on a host computer system which is to serve as 
the hardware for a library automation system. Those 
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familiar with the operation of a library will understand 

that ah automated library system will generally include 

the following transactions: 

Circulation Transactions: 
5 Patron Record Update 

Check In 
Check Out 

Searching Transactions: 
Key Word Search 
10 Authority Search 

Indirect Search 
Alpha Title Search 

Cataloging Transactions: 

Bibliographic Record Update 
Item Record Update 

15 Acquisition Transactions: 

Ordering 
Receiving 

The presently preferred embodiment described herein 
is well adapted to monitor a host computer system capable 
of carrying out the above-listed transactions utilizing an 
automated library system such as those available from 
Dynix, Inc., of Provo, Utah. It will be appreciated, 
however, that many other types of multi-user host computer 
systems may also be monitored using the embodiment and the 
inventive concepts expressed herein. 

Significantly, in order to accurately emulate actual 
operating conditions, the embodiments of the present 
invention allow the rate at which transactions are 
presented to the host computer system to be varied from 
task to task as well as vary the rate at which characters 
are input to the host computer system ( i.e. , vary the 
typing speed) . As an examination of the appendices will 
reveal, such changes may be made by merely altering some 
parameters in the scripts previously prepared to carry out 
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a task , or transaction. Importantly, in contrast to the 
previously available techniques, the script programming 
code remains substantially unaltered as parameters are 
changed or additional communication ports are assigned to 
carry out the script. 

As will be readily appreciated by those skilled in 
the art, before a monitoring session is begun, the 
application software and the database, for example, a 
library automation program and database, are loaded into 
the host computer system 10. Also, each communication 
port of the slave CPUs 100A - 100AG are assigned a task 
which causes one of several transactions to be carried out 
at that communication port. 

Figure 2 is a flow chart showing the high level 
organization of the steps carried out by the program code 
utilized by the slave CPUs 100A - 100AG and appended 
hereto. Beginning at start 200 in the flow chart of 
Figure 2, upon power up or reboot, the 33 serial 
communication ports (COM ports 102 and ports 112, 114, 
116, and 118) provided on each slave CPU 100B - 100AG are 
initialized for interrupt servicing as indicated at step 
202. 

It will be appreciated that more or fewer than 33 
serial communication ports may be associated with each CPU 
according to the present invention. It is, however, 
preferred to utilize one COM port of each slave CPU 100B - 
100AG for communication with the master CPU 100A and that 
the remaining 32 communication ports (112, 114, 116, and 
118) be connected to the host communication ports 12. 
Further, it will be appreciated that communication 
techniques, such as a network, could be used to allow 
communication between each of the CPUs. 

As represented at step 204 in Figure 2, 32 tasks are 
initialized to appear at one of "the 32 communication ports 
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(112 , 114, 116, and 118), each of which will process one 
terminal session. This approach emulates the actual 
conditions generally found in many host computer systems 
such as a library automation system. For example, one 
terminal will be assigned to circulation transactions 
(patron record update, check in, check out) while another 
terminal will be assigned to searching transactions (key 
word search, authority search, indirect search, and alpha 
title search) . In this way, each of the communication 
ports on the slave CPUs can appear to the host computer 
system as if it is a terminal carrying out a particular 
task. Also, if the host computer system is provided with 
a number of active communication ports which is not an 
even multiple of 32, fewer than 32 tasks may be 
initialized at step 204. 

In the embodiment described herein, the master CPU 
100A is provided with enough memory to be able to store 
the time required to complete each transaction. Such 
memory preferably includes a fixed disk drive 132 as 
represented in Figure 1. Furthermore, the master CPU 100A 
coordinates the functioning of the slave CPUs 1O0B - 100 AG 
by giving instructions and also providing data for the 
CPUs as the scripts are processed. Thus, as represented 
at step 206, the slave CPUs 100B - 100AG respond to 
25 requests for communication with the master CPU 100A. 

As represented at step 208, each slave CPU 
reschedules which of the 32 tasks 210A - 210AF will be 
carried out next. When it is a particular task's turn for 
execution, the appropriate commands are fetched as shown 
30 at step 212, and the command is then executed as 
represented at step 214. The tasks are again rescheduled 
(as shown at 216) and the process continues until the 
monitoring session is completed. However, as mentioned, 
as each task is rescheduled, the data necessary to execute 
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the command ( e.g. . data representing a patron 1 s 
identification and the bar code numbers needed for a check 
out transaction) is obtained from the master CPU as 
represented at 218. 

Figure 3 is a high level flow chart representing the 
organization of the interrupt routines for the CPU 
communication ports (112, 114, 116, and 118) on each slave 
CPU 10 OB - 100AG. As shown in Figure 3, as an interrupt 
from each communication port is received (steps 230A - 
2 3 OAF) , the slave CPU receives the data from the UART 
(Universal Asyncronous Receiver/Transmitter) provided at 
the serial communication port as shown at step 232. The 
data is then stored in a port specific buffer within the 
memory of the slave CPU (step 234) and the slave CPU waits 
until the next interrupt is received as shown at 236. 

Importantly, as shown in Figure 4, the data needed to 
carry out a task, such as a check out transaction, is not 
integral with the scripts. Represented in Figure 4 are a 
plurality of scripts each carrying out one type of 
transaction. Figure 4 shows transactions A, B, and N 
indicating that any desirable number of transaction types 
may be carried out using the present invention. 

Each of transactions A-N begins at the step 
represented at 251A - 251N in Figure 4. When data is 
required, the data is retrieved from the appropriate data 
pool (254A - 254N) . EAch of the data pools used in a 
monitoring session is generated from the database which is 
loaded into the host computer system so that the 
transactions carried out are the same as those which would 
be under actual operating conditions. 

As represented at step 256A - 256N, a first variable 
is entered into the host computer system. The variable is 
retrieved from the appropriate data poll as indicated at 
data pool 254A. Once the variables have been entered, the 
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transaction waits for a prompt, or some other appropriate 
response , to be returned from the host computer system as 
represented at steps 257A - 257N. It is the period of 
time between entering the variable ' and receiving the 
prompt that is measured to determine the response time of 
the host computer system. The steps of entering another 
(second) variable 258A - 258N and waiting for another 
prompt 259A - 259N are repeatedly carried out. After the 
last prompt is received from the host computer system, the 
transaction ends as represented at step 260A - 260N. If 
the monitoring session is complete (step 262A - 262H) then 
the process ends (step 2 64 A - 264N) . If hot, the 
transaction is begun again. 

By using the described data pool arrangement, when 
the number of active communication ports on the host 
computer system is changed it is not necessary to make any 
major revisions to any of the scripts, but it is only 
necessary to make other easily carried out changes. Thus, 
the laborious task of rewriting lengthy scripts with data 
embedded therein, as required by previously available 
methods and systems, is avoided. Moreover, the present 
invention allows the embodiment described herein to halt 
and resume a monitoring session when desired. These and 
other advances inherent in the present invention allow 
computer performance evaluation monitoring to be carried 
out much more efficiently than previously possible. 

Reference will next be made to Figure 5 which is a 
diagram representing one possible allocation of tasks 
among some of the communication ports shown in Figure 1. 
In Figure 5 , slave CPU 100B with the serial interface card 
104B having eight serial communication ports is 
illustrated. Figure 5 shows that five communication ports 
have been allocated to carry out transaction A 250A which 
derive their data from data pool A 252A. Also shown in 
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Figure 5 are three other communication ports allocated to 
carry out transaction B 250B and which all derive their 
data from data pool B 254B. 

Significantly, means is also provided in the system 
and method of operation of the present invention to allow 
the transactions to have different parameters ( e.g. , 
transaction rate and typing speed) on each communication 
port. Moreover, changing, adding, or deleting the 
allocation of transactions may be easily accomplished 
(either as the number of active host communication ports 
changes or remains the same) since the scripts reside on 
the master CPU in the described embodiment and the 
necessary instructions are communicated to the slave CPUs, 
in this way, the system embodiment and portions of the 
programming code contained herein together function as a 
means for selectively increasing and decreasing the number 
of active host communication ports which may be monitored 

Provided below is a brief summary of the functioning 
of each portion of programming code contained in 
Appendices A - H. It will be appreciated that the 
programming code attached hereto is specifically written 
for use on the previously described system and contains 
modules for statistical analysis of the results of a 
monitoring session as well as other desirable features 
Thus, the code attached hereto must be considered as only 
exemplary of the present invention since many different 
hardware configurations and software architectures can be 
used to carry out the present invention. 

The source code contained in the appendices attached 
hereto is written in the Microsoft c (version 5) 
programming language (except for assembly language 
routines where noted) which is well known to those skilled 
in the art. Thus, appropriate provision for running such 
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^ programs on the previously described hardware can be made 
by those possessing skill in the art. 

Appendix A 
Title; Update Session I/O 

5 Code Module: US.C 

The code module (US.C) continued in Appendix A is 
used to describe the host computer system to be tested and 
also to set the parameters that control the test session. 
This code module is used prior to running a test session. 

Among the items that describe the host computer 
system to be tested are: 

NAME; 

MEMORY SIZE; 
15 DISK SIZE; 

DATABASE SIZE; 
DATE; 
TIME; and 
REMARKS 

Included among the control parameters are: 

20 SESSION LENGTH; 

TYPING SPEED; 
THINK-TIME DELAYS; 
SCRIPT PACING; and 
the mix of SCRIPTS among 
the slave CPU ports 
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Appendix B 
Title: Master Program 

Code Module: MP.C 



This code module runs on the master CPU. Using the 
SESSION. ID parameter created by the US.C module, this 
module loads the slave CPUs with the appropriate scripts 
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and then starts the slaves processing the scripts. During 
a session this module records on the master CPU fixed disk 
the transaction timings made lay the slaves and also 
provides a central location for storing the status reports 
of all the slave communication reports. 

Appendix C 

Title: Slave Program 

Code Modules: SP.C 

SPN.C 
TASK.C 
TESTPORT.C 

TIMER. C 
TRAFFIC. C 
TRANS_IT.C 
15 SERIAL. H 

SP.H 
SP_DATA.H 
SP_GDATA.H 
DISPLAY. ASM 
DISPLAY. C 
DO_SCRIP.C 

20 GET SCR.C 

10. C 
MAKEDATA.C 
MEM.C 
OBEY.C 
REDUCE. C 
SLAVE. C 
SLEEP. C 

25 SP__DATA.C 

SP_GDATA.C 
SP_SETUP.C 
RDN.C 

The SP.C code module runs on each of the slave CPUs 
and executes the scripts assigned to each of the ports as 
the master CPU directs. The principle functions of the 
SP.C code module is to output commands to the host 
computer system, watch for prompts returned by the host 
computer system (indicating an appropriate response has 
been completely delivered, and time the period between the 
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command being output to receipt of the prompt) . The other 
code modules listed in Appendix C are associated with the 
SP.C module or are code modules desirable to include 
during the operation of the slave CPU and/or the master 
CPU. 

Appendix D 

Title: Task Scheduler and Serial Driver 
Code Modules: TASK. ASM and SERIAL. ASM 

These two assembly language routines are Used by both 
the Master Program and the Slave Program to handle the 
operation of the serial ports and to provide task 
scheduling. 

Appendix E 
Title: Summary Statistics 

Code Module: SS.C 



The SS.C module provides some statistical analysis of 
the timing data collected by the Master Program and 

20 

converts the files containing the timing information into 
a format suitable for further analysis. 

Appendix F 

Title: Diagnostic Software 

Code Module: WORM.C 

25 

The WORM.C code module is used to diagnose hardware 
problems in both the slave CPUs and the master CPU. 
Desirably, this code module allows either an internal or 
external loopback to be performed on any serial port. It 
30 can also be used to logically connect a terminal to any 
port on the host computer system under test. 
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Appendix G 
Title: Script Definitions 
Code Modules: SCRIPT. INC 
AUTHOR. ASM (sample script) 

The SCRIPT. INC module contains the definitions of the 
scripting language used with the described embodiment. 
The AUTHOR. ASM module is included as an example of a 
sample script. 



Appendix H 

Title: Miscellaneous 

Code Modules: SPKR.C 

T.C 

15 WHATCOM. C 

MK. BAT 
SP1L.BAT 
SPL.BAT 
SPNL.BAT 
SP.DAT 
MENUNIND.H 
SES_FILE.H 

20 SPN.LNK 

MENUWIND.C 
SP1.C 
TUNES. C 

The code modules included in Appendix H are 
miscellaneous modules which are helpful when performing 
25 functions such as compiling, linking, or maintaining the 
programming code. 



D. Conclusion . 

In view of the foregoing, it will be appreciated that 
the present invention provides an efficient system and 
method for carrying out computer performance evaluation 
monitoring of a large scale, multi-user, host computer 
system. 
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The present invention also provides a system and 
method for computer performance evaluation which records 
the time taken by the host computer for completing each 
transaction and also easily allows for varying the type of 
transactions and also the transaction rate from one 
monitoring session to another. The present invention also 
represents an advance over the previously available 
systems and methods in that it may be readily adapted for 
use with a wide variety of host computer systems as well 
as with various numbers of communication ports on a host 
computer system. Importantly, the present invention 
provides computer performance evaluation monitoring 
sessions which accurately show the performance of the host 
computer system under actual operating conditions as well 
as providing monitoring sessions which can be repeat ably 
reproduced again and again if necessary. 

The invention may be embodied in other specific forms 
without departing from its spirit or essential 
characteristics. The described embodiments is to be 
considered in all respects only as illustrative and not 
restrictive. The scope of the invention is, therefore, 
indicated by the appended claims rather than by the 
foregoing description. All changes which come within the 
meaning and range of equivalency of the claims are to be 
embraced within their scope. 
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APPBNDTY & 

Title: Update Session I/O 
Code Module: us.c 
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US.C Tuesaav. October 18, 1*8S 



p aae l 



/»*»*«* 



us.c 

^ Update session ID files 

Rnoliing StDne 

K. brook ftichan 

(C> 1933 Dvmx, Inc. 

mm**/ 

10 ttmciuoe "ses_f ile.^ 1 

ttinclude "menuwind.h" 

tincluce (bscreens.h) 

#include ibkeybrd.h) 

ifinclude isinng.h) 

^include <stdtib.h> 

^include lsidio.h) 



15 define FALSE 0 
ftdefine TRUE 1 
ftdetine DEAD £54 
ttdetine UNUSED 255 
#de+me DDLabelWidth 15 

/*** SLOPALS ***/ 



2Q SessionlD si ; 

lnt si_updated; /« false if si not changed, true if changed 
char 5i_dtHC80) v si fnamelSOJ : 
FILE *si_file; 

char sco-.df It [SO] ; 

mt terfflsCflaxTransTvoe] : /* number of terminals for each trans tvce v 
int oort_paae; 

25 

/# whicn window is visible*/ 

enum shown lnone_shown ,desc_shown , tr&ns_shown ? port_showr»} w_shown: 

MENU masterfUdescrMransh^pDrtM; 
WINDOW oescW t transW,portW; 

/«m END GLOBALS «**/ 

Disp layMvWindow (WINDOW *myW, enum shown my shown) 

f 

it '.w_shown != my_shownj C 

i+ (w_shown — aesc_snown/ kemovewindowi&oescW; : 

else it i.w_snown == trans_snown) RemoveWinaow • i:transw.» ; 
else if iw_snown — Dort_shown; RemoveWi noow bDortu).* : 

) 

DisDlavwindowimyW; ; 
3 5 tt_shown = my shown; 
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) 

/««**/ '-. 

/«*** Description window disDlav stu*+' *«**/ 
/**»»/ 

DDLaoellint row, char * label) 
{ 

Wrxtertindow(WescW,row,DDLabelWidth-Btrlen(label) .WHITE : INTENSITY. label) ; 



Bu&tr Data lint row, cnar «data> 
char *d, *none = "Cnone)": 



15 



20 



if (*data=='\0') o = none: 
else d = data; 

ClearRect (&descW,row,DDLabellgidth+2,l ,7S-(DDLabelWidth*2> ) ; 
WnteWindow(fcdescW. row, DDLabelWidth+2. WHITE, d; : 



DDIntDatadnt row, ant aata) 
( 

cnar sC£03; 

xtoaioata.s.lOJ : 
DD5trDatairow,sJ ; 



DescLabelso 
* I 

DDLabel <0, "Machine Name"); 

DDLabel U, "Memory Size") ; 

DDLabel (S, "Disk Sue") ; 
25 DDLabel (3, "Data Base Size"?; 

DDLabel (4, "Session Date") ; 

DDLabel (5. "Session Time 11 ): 

DDLaoel (6, "Remark") ; 

DDLabel (7. "N Terminals"); 

DDLabel t8, "N Trans. Types"); 

DDLabeKS. "Think Time") ; 

DDLabel (10, "Char Throttle"); 
30 DDLabel (11 ."Timeout Value"); 



DescPaint 1/ 
C 

DDStrDatafO, si .machinename.' ; 
DDStr Dat ail. si -memorvs l se ) \ 
DDStrDatalS. si •disicsise) ; 
35 DDStr Data (3. si .databasesise» ; 
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DDStrDat'atl, si. date) : 
DDStrData(5, si. time); 
DDStrData(b, si .comment) : 
DDIntData(7, si .nterminalsJ ; 
DDintDatalS, si .ntranstype) ; 
DDintDatalS, si .trunkt lme) : 
DBlntDatadO.si .chartnrot t le) ; 
DDlntDatadi, si. timeout) ; 



/*«** Transaction window display stuff ***«/ 
/#***/ 

TransRowCol iint tnum, mt *row, int *col) 

I 

*row = (tnum/.7) + l ; 
*col = (tnuoi/7)t&5: 
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} 



DTDataimt tnum) 
{ 

int row. col : 
cnar dataCl03; 



TransRowCol 1 tnum, &row,kcol) ; 
ClearRect (ktransW,row,col+3,i ,20) ; 
20 WnteWindowi&transW.row •col+cJ,WHlTE,si .f i lenameLtnum] i : 

ilea tsi .transExpRateL tnumJ ,aata, 10) ; 

WriteWindow<&transto,row,col+17-strlenidata> .WHITE. data) : 
ltoatsi .maxTransact ions C tnum] ,oata,10) ; 
WriteWinaow(ktransW.row.col+25-strlenidata) .WHITE. data; ; 



25 TranLabelsO 
C 

char "heading = " TranType Rate Max # H ; 
char label [33: 
int i, row, col; 

WriteWindowifctransw\0, 0, WHITE {INTENSITY, heaaino) : 
WnteWindowCfctransW, 0,25. WHITE ! INTENSITY .neaci no » : 
WnteWindowifcttransW ,0,50 ,WHITE ! INTENSITY, heading) ; 
laoeUl }='.': laoelLSJ=' \0' ; 
tor (i=0; l (MaxTransType ; i 
labeU0j='A' + i ; 
TransRowCol (i ,fcrow,kco i) \ 

writeWinaowiktransw.row.cDl .WHITE 5 1NTEN511 r .label; 



) 
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TransPaint () 
{ 

int i: i 

5 CiearRect (ktransW,l, 3,7,£0>; 

CiearRect (ktransW.l .23. 7, SO; : 
CiearRect (&transW,l ,53,7,20) ; 
tor (i=0; itsi.ntranstypes DTDatad); 



/****/ 

2q /**** Port window display stuff ****/ 
int DPCountBadi) 

/* return the number cf dead oorts */ 
int l ,transtype,nbad; 



15 



noad = 0; 

for li=0; l (MaxTerminal ; i++) ( 

if tsi .termmaD[i3==D£A£i) nbad++; 

return nbad; : 

) 



20 



25 



DPCount ( ) 

/* set the arrav terms- to no. of terminals tor each trans type */ 
int i,transtype; 

tor (i=0; l'.si .ntranstvpe; terasLi J=0: 

tor u=0: i iM&j-rlerminal ? i++) { 
transtyoe » si .termmaoCiD 5 

if Uranstypeisi .ntranstype* termsC transtype3+^ : 



DPNTermCint showlabeU 
( 

char sC5J; 



30 if (showlabel) WnteWinaow(kportW,ll ,fci , WHITE J INTENSITY ,"N 

CiearRect CfeportW, 11 ,74 ,1 .3) ; 
itoaisi.nterminals,s,10) ; 

WriteWxnoow<feportW,li,77-strienis) .WHITE, 5) : 



Terminals :*) : 



DPTransDataunt transmim) 
( 

35 int perc,tnum; 
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char sC5j ; 

if <';(port_page==0 transnum<10) \\ 
'.oort_page==l \tk transnum>=10) ) 

Uransnumtsi .ntranstype) ) ( 
Ctearfcect ifcoortw, (transnum7.l0)+l ,71 ,1 ,7) ; 
itoa(termsCtransnum] ,s,10) ; 

writeWindowikportW. ctransnumyuOJ+l .7<4-str lems) . WHITE, s) ; 
it isi ,nterminals==0) 
perc-0 : 

else 

10 oerc = ( (long) termsL transnumi)* (long) 100) /(lono) si. nterminals : 

itoaiperc .s-.i!.'/ : 

imnteWindowitoortW, (transnum*/10) + l ,78-str len(s> , WHITE, si : 



DF'Transunt oage; 

25 J* Page = 0 -for first page, i tor secona oage of trans types «' 

int i,oerc,tnum; 

char #letter= ,, x:. , \s[5J: 

Dort jjage = oage; 
ClearRect (tiDortW.i .60, 10.16) : 
tor ii=Q; iU0; i++) { 
tnum = i «► ipageuu; : 
letter[0J='A'+tnum; 

wri tewindowtlsporth, i+l ,60 •WHITE ! INTENSITY .letter) ; 
if (tnum<si .ntranstype/ ( 

WnteWmdow<kportw,i + l ,62 , WHITE. si .+i lenameL t num j ) ; 
DPTransData(tnum) ; 



20 



25 



} 



DPTerrainalsO 
i 

int row, col ,i , j ; 
unsigned char transtype? 
char lineL603; 

3q /« ClearRect (k>ortW,l. 4. 1£. 54) : */ 

1=0! 

for <row=0; row(l£; row++> C 
cot=0: 

for «. j=0; j(50; o++) C 

transtype = si .ternwiacL i++ J : 
it (j>0 %ih j'/.10==0> line[col+-iO=' ': 
M (transtyoe~UWUSED.' linetcoWJ^ . • j 
else if (transtyoe==DEAD) I ineCcol*+:= 'X ' 
35 e i se linetcoi++j=- A'+transtvoe; 
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iinetcol3='\0' ; 

Wr:telvindow(kportw,row+l .4. WHITE. line) ; 



5 ) 



PortLaoeLso 
( 

char *nurastr= ,, 000: M ; 
mt i: 

10 * or i<l£; £ 

ii (iy.£) numstrLl3='5' ; else numstrCl J=-'V : 
numstrCOJ='0'+i i/£> ; 

WrxteWindowt^portW ? i+1.0,WHITE:iWTENSnY.nufflstr; ; 
WriteWindow(&portW ,0,65, WHITE ! INTENSITY , "TRAhiTYPE * V\> ; 



15 



20 



PortPaint () 

C 

DPCount () ; 
DPTrans(O) : 
DP Fermi nals U : 
DPN7errc(TRUEj : 

) 



/****/ 

/#*** Auxiliary routines «***/ 



InitDataO 

i 

25 memset iksi ,0,sireo* iSessionlEu ) ; /* zero out =i */ 

memset *si .termmap . UNUSED. haxTermina I) : 
si^updatefl = FhlSE; 



ImtDiSDlavi) 
( 

3q OescLaoelsO ; 

DescPamtO: 
TranLabelsO ; 
PortLabelsO : 
PortPaint </ : 



int DiscardChangesu 
35 /• return TRUE if nothing changed, or xi changed and user savs ok ♦ / 
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{ 

char ansCS'j: 

xi <si_uDdated) C 
5 DialogProrapt i "Threw away changes?" ."no" ,ans,3J : 

i+ ( touooer lansLOD J !='Y') t 

DialogMsg ("Choose 'Save'"); 
return (FALSE) ; 

j 

) 

ret urn (TRUE) ; 

) 

10 

DUStrlint row. char *orompt , char *data, int size) 

C 

char newaa t a C 300 3 ; 

DialoaPrompt (prompt ,data .newdata, size) ; 

i+* (strcmpidata, newdata) !=0) ( 
1 c strcpv (data. newdata) ; 

iD DDStrData (row, data) ; 

sijjpdated = TRUE: 

) 



DUInttint row, char *promot, short *data> 

C 

20 char datastr [*3 .newdatastrit j : 
int newdata: 

itoa(*aata,aatastr ,10) ; 

DialocPromDt (prompt , datastr ,newaatastr .si2eo4 inewaatastr ) > : 
newdata = atoi (newdatastr) ; 
l-f tnewdata t=*aata) C 

*data = newdata; 
25 DDlntUata(row,newaata) : 

si updated = TRUE; 

) 



int TranLtrToNumlchar ch) 

/* convert letter A..T to Q..1S. return -1 it not in ntranstvpe range ♦/ 

^ ch = toupper (ch) ; 

if << # A'<=crW hit tcru = ( 'A'+si .ntranstype-1) ) ) retur.v.ch- 'A') : 
else return (-1) ; 

) 



TUUootint tnurn' 
C 

35 int newoata.row ,col ; 
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char datastrLKO ,newdatastrLtO ; 

TransRowCot (tnum,&row,*;con ; 
/« Highlight 'tetter */ 

Attribftect i&xransW,row,col ,1 BLACK, UiHITE) ; 
1 1 oa k s x . t r ansExpRa t e 1 t num 3 , a at as t r , 1 0 ) ; 

Dialogfromot ("Transaction expected rate, in clock ticks" ,dat«tr 

newdatastr ,si2eof (newdatastr) ? ; 
newdata = atoi (newdatastr) ; 
li (newaata!=si.transExpRateCtnum3:' C 
si . transExpRateC t num] = newdata; 
sijjpdated = TRUE: 
10 DTData(tnuffl); 
} 

itoa(si .maxTransactionsCtnum],datastr ,10) ; 

DxalogPromoti "Maximum transactions for session, 0 = unlimi*e*" 0 ^^e + r 

newdatastr, siseof (newdatastr)) ; " " ' 

newdata = atoi inewoatastr) : 
it inewdata !=si . maxTr ansae t ions Ctnum:! ) i 
si -maxTr ansae tionsLtnum] = newdata: 
15 sijjpdated = TRUE; 

DTDataitnum; : 

AttnbRectt&transrt.row.col.i.E.WHiTEJlNTENSITY, BLACK; ; 



20 



TUChanaeO 

C 

cnar letterCl] ; 
int tnum; 



DialogPromot ("Letter of transaction to chanoe" Met'er n . 
tnum = TranLtrToNumiletterC'IO; ; " " 

if Unum==-i) ( 

BialogMsgC" — not a proper letter"); 
return; 

25 ) 

TUUod(tnum) ; 



TUAddO 

C 

char tnameCSOJ ,*trom,*to,ch; 
30 int A ? 

i-f '.si •ntranstvpe>=riaxTransTYpe> ( 

r-tui°n" £ " ( " ~ transactlon table is filled to the Drier/'; 

betFileName("Name of Scnot ti I r\sco of U .f name' : 
i t ' * name 1 0 j== • \0 • * t 

35 DiaLogMsgr — no script found or cnosen") : 

return: 
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) 

/« back up to end of path, if any */ 
-for (i=strlen'.fname)-l ; 

i)«0 kk fnameCi3!=' : ' kk f named J !='W ; 
5 i~) ; 

/* copy file name {/nanus the extension) «/ 
from = iname+i+i ; 
to = si .+ i lenametsi .nlranstvpeJ : 
while ( i* from != * \0 * ) hk »* from :='.*.» « <. 
cn = *from++; 
«to++ = touppertchi : 

3 

10 *to = '\0'; 

/* check tor already in table */ 
for (i=0: 

l <si .ntranstyDe kk 

strcmp<5i .f llenameCsi .ntranstype3 ,si .f i lenameC i 3 ) !=0; 
i++) : 

if n «.si .ntranstype) C 

DialogMsgf" — that script is already in the table"); 
^5 return; 

si .transExoRateCsi .ntranstvpe3 = 0; 

si .ma>;TransactionsLsi .ntranstvpe3 = 0: 

DTDataisi .ntranstype) ; 

TUUpd (si .ntranstype) ; 

si ,ntranstype++; 

si_updated = TRUE; 

DDintDataCS, si .ntranstype) ; 

20 3 



TUDeleteO 
( 

cnar letterCH; 
int i ,t num : 

25 OialogPrompt ("Letter of transaction to delete" , M " , let ter ,1) ; 

tnum = TranLtrToNum ( letter C03) : 
if (tnum==-lJ { 

0ialogt1sg(" — not a proper letter"); 
return: 

3 

/* remove from array, sliae everything else forward */ 
si .ntranstype — ; 
2q for u=tnum; l (si .ntranstype ; i++) C 

strcpv(si .f l lenameCi3 .si .f r lenameLi + U) : 

si .maxf r ansae t ions[ i 3 = si .ma^Transact lonst l+i j ; 

si ,tran5ExDF:ateLi3 = si .transExpRatel i*13 ; 

TransPamt w : 

DDIntDatalS, si .ntranstype) ; 

/« remove from terminal map, alter everything above, chanae nterm-inals ♦ / 
for u=0; i (MaxTerminal : C 
35 if (si . termmapCi3==tnum) C 
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Pace 40 

si.nterminals — : 

s l . t ermmaD [ l J =UNUSED ? 

DDlntDatai7, si.nterminals) ; 
s:_uDdateo = TRUE; 



10 c 



PURowCotunt dos , int *row, int *col> 



*row = (DOS/50) + 1; 

*col = tPD5y.50>4.a+(ip OS «/50)/lO>- 



PUPosunt pos) 
C 

, - int row. co i : 
X0 char sCSO; 



PURowCol (pos .krow .feco 1 ; : 
CursorOtfifcoortW) ; 
CiearRecttfcportW,l£,74,1.3^ : 
itoatpos,s,iO> ; 

WriteWindow(toortwa£,77- trlen(s) . WH nE, S ) • 
WriteWinoow(^DortW,row,col,-l 1 "») . 
20 CursorGn(fcportW) : 



PUWntednt pos, c har cn , 

int row,col; 
25 ch *r sC2D: 

PURowCol <pos,fcrow,&col) ; 
sCCO«ch; s£U='\0'; 

WriteWindow<fcportW,row,col,-i, s >; 



3Q PUUnusedUnt termno) 

xnt olotrans; * 
olatrans = si .termmapE termno j : 

si • termmapL termno J * UNUSED ; /* unused */ * 
xt lotdtransui .ntranstvDe) ( 

termsLoldtransJ — ; 

si .nternunais— : 
35 sijjpdated = TRUE; 
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3 

} 



5 PUAdddnt termno, int transtype) 
C 

si .termmapUermno] = transtvpe; 
termsCtranstvpe]++ ; 
si .nterminals++; 
si_updated = TRUE; 



10 



PULdiU; 
( 

int done,curoQ5, n ewoos,updtdisp,chrdy,key,transtvDe,j ,olon+erm- 
cnar ch ; 



15 



ero. Enter trans types first."); 



20 



25 



30 



35 



ii isi,ntranstype~0) C 

Dialogrtsg i" — numoer ot trans types xs 
return: 

) 

DialogMsgt"Use arrow icevs , tabs, '.PgDn), or transaction letter 
ad port, * .• =■ unused port. (Esc; = quit 1 '): 

tori teW inflow ikportW« 12, 61 ,toHlTE ! INTENSITY, M Crsr Port *;") ; 
curpos = 0: 
PuPos (curpos) ; 
done = FALSE: 
whi le ( loone) C 

updtdiso = FALSE: 

newpos = curpos; 

oldnterm « si •nterminals ; 

ch = kbgetkey (fckey) ; 

ch = toupper (ch) : 

li (key==7£) newpos-=50; 

else if (key==77i newpos ++; 

else ii (key ==75) newpos—; 

else ii tkey==S0) newpos+=50; 

else i-f (ch~9) newpos+=10; 

else it u:ev==15) newpos-=10; 

else it 'key==ll&J newpos -=10; 

else it (key==ll*> newpos+^lO; 

else i-f (ch==S) newpos — ; 

else ii vkev— 31) { 

0PTrans(i-port _page) ; 
PUPos (curoos) ; 

} 

else it ('A'i«ch kk ch< 'A'+si .ntranstvoe; C /♦ trans w 
Puunuseoicuroos) ; 
PUAdd(curDOS,ch-'A') ; 
PUtfr : te I curoos .en) ; 
newpos ♦+ ; 
upctaisp = TRUE: 

) 

else it <ch=='x') C /* dead port * 



•a^b, 



. ) . \rr.v = ce 



/» up arrow */ 

/* right arrow */ 

/* le+t arrow */ 

/* down arrow */ 

/« tab */ 

/* back tab */ 

/* control lett arrow */ 

/* control right arrow •/ 

/> backspace */ 

/♦ PgDn */ 
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PUUnused icurDOs) ; 
si .termmapLcurposJ = DEAD: 
PUWriteicuroos^ch) ; 
uDdtdiso = TRUE: 
5 newoos++s 
} 

else if ich-'.') ( /* unused oort «/ 
PUUnused(curpos) ; 
PUWrite(curpos,ch) ; 
updtdisp = TRUE: 
newpos++ ; 

j 

10 else it <ch==57) done = TRUE: 

if lupdtdisp) { 

CursorOff ifcportW) ; 

EPTransOatad; ; 



3 /* end whi le */ 
ClearRect (fcportW.lfi.fcl ,1 , 16) ; 
DialogRemoveO ; 
CursorOff (L-portW) ; 



20 PulennNumu 
C 

cnar letterLU: 
mt i,tnum; 

char datastrC63.newdatastrC63; 
int newdata; 



25 



30 



35 



i+ (si .ntranstype==0) C 

Dialogrtsgi" — number of trans tvoee L - * 

return: XV0BS l * 2e, °- tn ^r trans ;yp 5 = first.") 

DialogPrompt ("Letter of transaction" , "Metter l). 
tnum = TranLtrToNum(letterL03); ' ie ^er,i>, 
if Unum==-i ; { 

Dxaloghsgt" not a proper letter")- 
return; ' 

) 

1 1 oa ( t erms C t num3 , dat as t r , 10) ; 

DialogPromDt ("How many terminals" riatActr ^ h ♦ 

newdata * atoi (newdatastr) ? ' dat **tr .newdatastr . 51 zeof (newdatastr ) > j 

it <newdata«terms[tnuniD) return; 

return; e " cee a* maximum allowed terminals"); 

J 

for u=0; i vKa:-:7erniinal; { 
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1+ '.si -termmapCiD—tnumJ C 
PUUnused ( i ) ; 
PUWrited 

5 , - 

•tor u=0: (I'vMaxTerminal) ki> in.ewdata>0> ; 1++) ( 
if »s: .termmapti J==UNUSED> C 
PUAddii ,tnum) ; 
PUWriteti.'A'+tnum) ; 
newdata — ; 

) 

3 

10 DPTrans(port_paoe) ; 
DPNTerm (FALSE) : 



Page 13 



20 



PUAlteru 
C 

int 1 ,j ,tnum,ntermj 
15 char aatastrLbj ,newdatastrCtO 5 
int newdata; 
■Float ratio; 

int newtermsCMaxTransTypeJ ; 

if tsj .nterminals—O) ( 

DialogflsgC' — number 0+ terminals is sero. Enter mu*»r- first."" 
return; " 

) 

it tsi .ntranstype==CO C 

PialogMsgi" — number of trans types is zero. Enter trans tvpo= *» r «t 
return: ' * ' * 

) 

ltoaisi .ntermmals,aatastr ,10) ; 
ta 5 tr\ l ^ l09P^OmPt(MChanQe tDtal °* terrainals tD",datastr,newdatastr, S ireot«new: 

_ newdata = atoi (newdatastr) ; 
25 if tnewdata==si.nterminals> return; 

it mewdata>haxTerminal-DPCountBadO ) C 

DialogMsgC « exceeds maximum allowed terminals"); 
return; 

3 

for u=0; : <si .ntranstype; 1++) newtermsCiJ = termsLi]; 
ratio = ttloat/newoata/ if loat;si .nterminais: 
tor (i=0; 1 (NaxTerminal ; 1++) ( 
30 14 '.si • t er mmap C 1 J 1 =DEAD > *. 

PUUnused ( 1 ) ; 

PUWriieii , ' . f 1 

} 

) 

1 = 

for 1 j=0; j isi .ntranstype; C 

nterm = ratio* ( (f loat j newtermst jJ)+o.5; 
3 c while interowO fc& MMaxTerminal ) ( 

if tsi . termmaoL i 3 !=DEAD> C 
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PUAdd ( i , j ) • 
PUWnte'.i ,'A'-rj; ; 
nterm — ; 

} 

} 

) 

DPTrans <port_paoe.» ; 
LiF'NTerm (FAL5E.« ; " 



10 /****/ 

/**«* ham routines .****/ 
/#***/ 

LoadFilew 

( 

if (DiscardChanges(>==FALSE) return; 

GetFileNam e (-Ma ffi e ot Session JD ^ile« ..ijnt .si f name) ; 

15 s in^-T eS= ; U, 'i C Dial0 ^(" - no file loaded") return- 
si_+i!e = fopen(si f name.Vb") : n ' 

"J^r* 1 ^ - can not ooen file"): return- i 

*read<&si,si2eo*<SessionID> f l.si file>; n * * 

tclosetsi_f ile) ; 
si_updated = FALSE; 
DescPamt O ; 
TransPaint () ; 
2o PortPainto ; 

Di a tognsoC "Loaded") : 

} 



SaveFileu 
( 

DialogPromptrName oi Session ID u le» ,si^name, S i tname, 
2 c siseo-f isi_-fname> > ; " ' 

« if <*si_fname=='\0'> CDialoartsg <« ~ no file saved"), r.i,,, 

DialoghsgC'Saving..."); 5dVed >; retur ^ J 

si_tile = topenisi^tname/wb") ; 

H <si_*ile=NULL> CDialoghsgC - can not create tile^- PB , 
^write(fcsi.si 2 eo^SessionID>;i,si file)- ? retUrns 

*clDse(si_file> ; 

I'ialogMsgO'Saved' 1 ) ; 
si^uodated = FALSE: 

30 > 

1 nit Command u 
C 

it iuiscardChanoes()==FALSEJ return: 
ImtDataO: 
lnitDisplayO ; 
2g TransPaint O ; 

DialogMsg("2he data, she's an rapoahrooed") • 
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DescUpaateO 
5 C 

char cmd: 

DisplayMvvlinaowikdescw,oesc_shown) ; 
oescM.lastColumn = Oi 
Oisplayttenu' LtdescM) ; 
cmd = ' ' : 

while (cmd != 'Q') ( 
10 cmd = &etflenu(kdescM) : 

DialogRemoveO : 
i-f icmd == 'N') 

L'UStr (0,"Name of machine" ,sx .machmename , 
sizeof (si . roach inename) ) : 
else if (cmd == 'M ' ) 

DUStr (1 /'Size of machine's memory" ,si .memorysize . 
sizeof (si .memorysize) ) ; 
else if icmd ~ '£»') 

DUStr v£, M Size of machine's disk" .si .disksize , 
sizeof (si .disksize)) : 
etse if icmo — ' F ' ) 

DUStr i3\"5ize of the oata base",*: .databasesize, 
sizeof (si .databasesize) ) 5 
else if (cmd == 'R') 

DUStr (6,"6eneral remark about session" , si .comment , 
sizeof (51 .comment) ) ; 
20 else if (cmd '0') 

DUInt OVInter-operation think time, in clock ticks" ,fcsi .tninkt ime' 1 : 
else if (cmd == 'C> 

DUInt (10, "lnter-character wait time, in clock ticks" .ksi .charthrott le) : 
else if (cmd == 'T') 

DUInt(ll,°Time to wait before signaling 'timeout', in clock ticks", 
&si .timeout) ; 

} 

25 RemoveNenu(kdescM) ; 



15 



TransUpdatet) 

( 

char cmd; 

2Q DiSDlayf1vWindow^transW,trans_snown? ; 

transM.lastColumn = 0; 
Disd layMenui&transrt) ; 
cmc = ' ' : 

while '.cmd != 'Q') ( 

cmd = bethenu(ktransn) : 
DialooKemoveO ; 
if (cmd == 'A') TUAdd(; ; 

else if (cmd == 'O TUChangeO ; 
35 else if (cmd == 'DM TUDeletel): 
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3 

RemoveHenui&transM) ? 

) 

5 

PortUodateO 
C 

char cmd; 

Di sd I ayflyWi ndow ( &Dor t W , por t _shown ; : 
Port Paint O ; 
portM.lastColumn = 0; 
10 Displavhenuifeportltt : 
cmo = ' * ; 

while (and != 'Q *) C 

cmd * GetMenu(kportM) ; 
DialogRemoveO ; 

i-f (cmd « '£ ' ) PUEdit () ; 

else if (cmd == 'T'> PUTermNumu; 
else it (cmd ~ 'A') PUAlterO; 
15 ^ else if (cmd ~ *N') DPTransU-port _page) : 

ftemoveMenuifctransrl) ; 
DDlntData(7. si .nterminals) ; 
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20 



mainO 



char cmd; 

int cur_off ,cur_rDw,cur_col ,cur_high ,cur_low; 
scoclrO; /* clear screen */ 
/* save state of cursor */ 

cur_off = sccurst (tiCur_row,^cur_col,fecur_high.Lcur^low/ 

25 /* initialise data */ 
InitfienuWmat) : 
strcDV(si_df It .10") ; 
si_fnameC03 = '\0* : 
strcpy(scp_df It ,"* .SCP") ; 
w_shown = none_shown: 

/* make menus */ 
30 MakeMenu (kmasterM . 

"LoadrLoad a session ID file'*, 

"Description;l)paate session description -fields'* • 

"Transactions :Update transaction table", 

"Ports :Uodate oort table", 

"Save: Save a session ID -file", 

"Init slmtialize session ID data to null c ". 

"Quit" , 

nit) . 

35 " 

MakeMenu (kdescn , 
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"N'ameshachine name being tested 15 . 
"Memory :Hemory size of machine", 
"Disk:7otal disk size". 
"Files:Bata base sise% 
5 "Remark :Any ol' tning ya wanna say", 

"uper think : Inter-ooerat ion think time", 

"Char wait : inter-character wait time", 

"Timeout :Time to wait before signaling inactivity" . 

"Quit", 

..,.) ; 

MakeMenu^transM, 

"Add: Add a transaction type", 
10 "Change rChange transaction rate and max trans". 

"Delete :Delete a transaction type" , 
"Quit", 
""); 

Mafcerlenu (&por t M , 

"Edit modify the table directly", 

"Terminals :Set the number of terminals for eacn transaction", 
"Alter :Change total terminals, maintain same percentaoes", 
15 "Next :Ne>ct page of transaction tvoes", 

-Quit", 

/* make windows */ 

MakeWmaowu:descW,l£,7S." Session Description •V.'.l); 
MaKewmdow^transW.S.VS," Transaction Types ",7,3/: ' 
p1aKewindowi&portW,13,7S,«' Port to Transaction Map ", 



20 



InitDataO ; 
InitDisplayO ; 



/* the main loop */ 

DisplayNyWindow(^descW 1 desc_shown) : 
cmd = ' ' ; 

DisplayMenu(kmasterrl) ; 
whileicmd != 'Q') C 
25 cmd = Getrienui&masterM) ; 

DialogRemove () ; 

if <cmd=='L'; LoadFileO; 

else if (cmd=='S'> 5aveFileOs 
else if <cmd— 'I') Ini t Command O ; 
else if (cmd— 'D') { 

RemoveMenui&fliasterM) ; 

DescUpdateO ; 
30 DisplayMenu'.&masterM) ; 

else if (cmd=='T ') ( 

ReraoveMenuifemasterll) s 
TransUodateO ; 
DisDlayttenu<kmasterri> : 

. ) 

else if (cmd=='p- ) ( 

Removenenui&.masterM; : 
Portuooateo ; 
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Disp lavttenu(kmasterM> : 

) 

^ else it tcmd—'Q') if (DiEcardChanges(>==FALSE; csr,d=- : 

5 

/* restore cursor */ 
scpcirO; /* clear screen */ 
sccurset (curjrow,cur_col) ; 

scpgcur (cur_o-f -f ,cur_riigh ,cur_low.CUR_NO_ADJUST) : 



10 
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15 APPENDIX B 

Title: Master Program 
Code Module: MP.C 
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1 MP - C Wednesday, August 31, 1988 

/* Master Processor 

<C) copyright 1988 Dynix, Inc. 
written by: J. Wayne Schneider 
date: S6 July 1SS8 

This program controls the slaves in the RH0B0T network. 
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#define FALSE 0 
Sdefine TRUE "FALSE 

txnclude (bios.h) 
10 include (staio.h) 
^include (ia.h) 
^include (malloc.h) 

FILE tstream; 
long length; 
char *messagej)uff : 
char *messageC5H103; 
15 char *r>cj>uffer; 

mainO ( 

mt i ,t ,numread; 
char *<np; 



stream = f open ("ID. DAT" , M rb") ; 
if (stream « NULL) ( 

puts ("Can't open the ID. DAT -file!"); 
^ u exit(e); 
) 

length = f ilelength(f i leno(stream) ) ; 

if ((length == -ID t\ (length > 327G7L)) C 

puts("File size out of range 1 "): 

exit (2); 

3 

message_buff = malloc ( (int) length) 5 
25 if imessage_bu*f ~ NULL) C 

puts( M Not enough memory -for messages »■■) • 
exit (^); 1 
J * 

numread = f read (message J>uff ,1 f (int) length, stream) : 
if(numread != (int) length) C 

puts("Error reading ID. DAT file*"); 

exit (5); 

30 > 

mo = message_bu«f f ; 
do { 

switch <*(mp++)) C 

case 1: i=0;oreak: 

case 10: i=l;break; 

case 17: i=E ;break; 

default : continue; 



35 
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t « t (mp++) ; 
messaged HU = mp; 
while (* (mp++) != NULL) ; 
) 

while (mp < <message_buf f + numread)); 

serial_init (1 ,%00, 0x03, OxOB, 0x1) ; 
rx_buf i er=mal loc (8043) ; 
ii irxj>u+fer « NULL) C 

outsC'Not enough memory -for rxjjuf fer !") ; 

exit (£•) ; 

) 

serial_imt_interrupt <4,rx bu-f -fer ,£048, 1 ) ; 
do processO; while (TRUE) 7 
senal_int released) ; 
J 



15 



20 



int processO ( 
int t; 

unsigned char c; 

H ichkbufO) 
£ 

c = sgetcO ; 
switch(c) 
( 

case 1 : 
case 10: 



default : 
} 



prints ("PROCESS %s\n" ,me5sageC0][sgetchar<>]> 5 break; 
printf ("REPORT y,s\n M , messaged 3 Csgetchar () J) ? break; 
print* ("char is y.i\n" ,c> ;break; 



) 



if IkbhitO) ( 
getchar O ; 

) 

25 } 

int sgetcharO C 

while( fchkbuf ()) rescheduleO 5 

return sgetcO ; 

) 

int rescheduleO (3 

30 
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APPENDTY a 

Title: Slave Program 
Code Modules: SP.C 
10 SPN.C 

TASK. C 
TESTPORT.C 
TIMER. C 
TRAFFIC. C 
TRANS_IT.C 
SP.H 

SP DATA.H 
SP_GDATA.H 
DISPLAY. ASM 
DISPLAY. C 
INTERUPT . ASM 
DO_SCRIP.C 
GET SCRIP. C 
10. C 

20 MAKEDATA.C 

MEM. C 
OBEY.C 
REDUCE . C 
SLAVE. C 
SLEEP. C 
SP_DATA.C 
SPJ3DATA.C 

* 5 SP_SETUP.C 

RND.C 
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1 * F,C Tuesday, October IS, p 

Slave Processor for the RHOB0T 

5 iu coDvnght 1933 Dynisc. Inc. 

written by: J. Wayne Schneioer 
date: i September 1333 

Memory model is COMPACT 

This Program has no output to the screen. All commanos mu*t 
come in trom C0M1 . All output qoes to COM! as well. The ~* 
10 serial ports S0-£7 f 30-37. 40-47, 50-57 are used ior host 
script orocessing. (numbers are octal) 

This Program does not even require a data file tor initialization. 
That implies tnat it must test the com Ports to see wnich on*e 
are working. We will assume we always have 32. Any tha* a-T 
not working or aon't exist will &e t lagged as bad and net used. 

15 Internally, we address the ports in octal as £0 through S7 

For all reporting, we reference them as 0 throuon 31. These 
also coincide wlth thfi < task _ ld , thmt 1S controilxng th e port? 

^include (stdio.h) 
^include <malloc.h> 
^include (string .h; 

^include "sp.h" 
tfmcluoe •'vrhabot \sp_data.h" 
^include u sp_gaata.h~ 
wincluoe 'vrnooot \sena i .h" 
#include "task.h 11 



25 



30 



constants 

int const MA5TER.P0RT = 1; COffi oort to #/ 

/HHMI««« W «»., lt „„ IHHM „ f||H „„ |#M|HM# 

Droceaure prototypes 

vcis read_command_line<int .char 
void haroware_setup< void) ; 
void initiate.script.tasksivoidi ; 
void traff icj)acketsTvoid) i 
void ciean_uo(voidJ : 

MAIN PROCEDURE 

*» **«««»« *k « 
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Tuescav. Uctooer it). 



mainiargcargv) 
mt argc; 
char *argvC3; 
C 

read_command_line<argc ,argv) 5 
hardware_setupu ; 
imtiate_script_tasksO ; 
reschedule () : 
tra-f-f ic_packetsO ; 
clean-up () : 
3 



/* get number _ot_oorts from cofo line 

/* fxxup clock & 2UM which MUST wr-rr 

/* do all the tas :* startup stuf / 

/« let everyone init com oort * 

/* traffic packets between mstr/slv < 

/* shut it all down -for clean stop */ 



10 



procedure HARDWARE_SETUP 

Tne clock tick counter must be set to sero tor our purposes. 
COTil is testea with an internal looDback. It MUST work or "we can't go on. 
1+ it tails, we will Display an error message and give a sad tune, 
j^g If it succeeds, we clear the aisoiav ana give a cheerful tuns! 
We also must initialize the com port anc it's interruot. 

void hardware setup O 
C 

char far *rx_buffer; 



20 



25 



/* timer_init O ; */ 
while c testjoort (MAS7ER_P0RT) ) 

r 

oisolavC'COMl BAD") ; 

sac_tune'j : 

} 

displayisignature) 5 
chirrup _tunei) ; 



/* run timer int at £0ns »/ 
/« test the port *: 

/* clear the disolav */ 



30 



rxJ>ufter=_-fmalloc<RX_BUFFER_SI2E> ; /* mit the Dort */ 
If irxjjufter == NULL) 
C 

aisplay( ,, ^maUoc ,, ) ; 
exit (1/ : 

) 

serial_init (MASTER^PpRT , 

_SJ3ATA, 

DTR iRTS I0UTS, 

ERDA1 , 

rx_0ut*f er *KX_BUFFER_S12E,Q) 5 



35 



senal_init_interruDt <hA5TER_P0RT ,0; ; 
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luesdav, October 19SS 



Pane 3 



10 



orocedure READ_COMMAN0J. I NE 

The command line is checked -for argument. There can be none, one. or two 
arguments. One argument would be a signature to display in the 
tront panel. The other argument would be numeric and represent the 
number ot Dorts to utilize. The de-fault port count is 32 and tns de-fault 
signature is blank. Either argument can appear in either position. 

void read_command_iine large ,argv) 
mi argc; 
char *argvLj: 
C 

in* i=0: 
char butfCiO: 



25 switch large; 
1 

case ! : break ; 



20 



oef au'tt : 
C 

1 = atoi <argvC23) ; 
if li != 0) 
C 

signature = argvClD; 

break : 

) 

else 

signature = argvCED; 

j 



case £: 
25 ( 

1 = atoi largvll 3) ; 
i«f 11 == 0) 

signature = argvLU; 

} 

) 

1+ l (1 >= 1> Uk U «> = 32) ) 

30 t 

numDer_o«f_ports = i ; 
sprint* tou«H . M >;£d PORTS" \ 
disolayibu-ft) : 
sleeo(20J ; 



/* no argument given */ 

/* two or more arcuments civer v 



/* tall thru tc get arc l •/ 
/* one araument aiven */ 



35 



015D lay isignature) ; 



/* set eisolav to oetault •/ 
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1 5P,C Tuesdav, OctsDer i£, r?&x 

orocedure 1N1TIATE_SCRIPT_7ASKS 

5 Allocate stao: space and set up all of the task control blocks tor th<- 
script processing tasks. We also set ourselves uo as a task and determine 
the maximum stack size cased on the number of ports. 

void imtiate_5criDt tasks (j 
C 

10 *nt i; 

char near *stackj>tr; 
unsigned stack^sise; 

/* stack size is near heap space divided by ports. Less £ tor overhead 
and forced to an even number 

«/ 



15 



stack_size = UjnemavlO / number _of_ports> - £) & OxFFFE; 

*ir6t_taskifetcb[32J>: ,* inxt ourselvei a5 5 tMk v 

for li=U;i<number_otj>ort5 5i++; /* now init the other tail* •/ 

stack j)tr = .nmaltoccstack.size; ; /« get a new stack >/ 

it (stack_ptr == nulu 
C 

2Q displav< H _nmalloc u > ; 

tcDtiJ.tasK_status «= TASK_3TATU5_EX1T : 
continue; 

) 

create_taski&tcoCi3 % stack_ptr ,stack_si2e, slave, i > ; 

) 

procedure CLEANj*' 

Fix uo tne necessary tnings before we exit. Those thims ar* n Q r,.. 
and the serial interrupts. ' * ock 

3Q void cleanjapO 
int i: 

timer _unoou; */ /B fnt the cloc , „ 

sen al_init_int err up t tflAS7tK_*ukT,i.» : /« serial interrupt- * 
f or <i=0:i (number_of_j>orts 

serial init interrupt u+017.1) : 
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Page 1 

Script Processor tor n ports witnout a master 

iCi copyright 1983 fcynix, Inc. 
written by: J. Wayne Scnneioer 
5 dates a September r?£8 

3PN n scnot.tile.name Lscnpt.arguments. . .3 [<data_*,ienam E J 

This program reaos the script file specified on the -ommand l,„. 
ano orocesses it on «n» ports. Data entrv r«h« L J * 
(data.fiUhame. A string argument^ " l? 0 lT se \ Tto^e ^SiJt"; " dir - Kl . IOn - 
be recognized as ARGl . AF* S , ... ARG7 . The L^b £ST 

#define TASK_STATL)S_EXIT OxSO 

#incluce ibios.h) 
^include <conio.h) 
fcincluae (malloc.h) 
15 ^include (stdio.h) 
#xncluae (bscreens.h) 

^include w 5p.h M 
^include M sp_data.n a 
ttincluas M sp_gdata.h" 
^include "Ees_f lie .h" 

struct t_str otrans; 

20 

struct i 

cnar far *next : 
cnar far ♦ staa:; 
in: stack_limit; 
ant tasK_status; 

tcbLS33: 

long length; 
cnar *script; 
char «*targv; 

int tasicunt) ; 

mamiargc ,argv> 
- int argc; 

JU cnar *argvC3; 
C 

int i ,j ,number_of _ports, flag; 
unsigned stack_size, stack_ptr; 

trans_init ikgtrans ,kg lobai ) ; 
if large { 3; ( 

35 Dutsi-Soecify a count fc script tile to process • •>• 
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20 



Sxit(lf- N 0 SCript - fne - name C«=ript.arQiM»nt»...J [<data_fi tenant") ; 
) 

number _of_ports = atoi (argvEll) ; 

script = aet_scri P t (argvC23 .^length, op_idjnsg) : 

scpclr () ; 

l = lw r )?-"* CM == NULL > f « : 9 + strlencop id m S q£03> : 
sccurset (0,(80 - i) / S); " * 

print* ("SCRIPT - fcs M ,op_idjnsgt03> ; 

ses.tile ■ foDenrSPN.DF-Vwb") : 
if lses_f i le ~ NULL) 

perror ("open tailed") : 

err_tile = fopeni"3PN.EFcR aa ,"w" » « 
i+ cerr_f i ie == nulLj 

oerror f "error open f ai lea" » ; 

ser i a I _oor t _se t ud i numDer _of _por ts) : 
-for ii=0;i tnumoer of _ports;i++> 
( 

sccurset (iU* + 4,u/l*) « 40): 
print* ("y,£d " ,1+1; ; 
if ( !good_pcrtCi+0£03) 
Drintf <"<no port)") ; 

) 



timer.imtO; ,« cnange cloc| , tQ -,. tlcks .. secofte #/ 

targv = fcargvE33; 5etUD argv oointer . Qr Ub|{b #/ 

25 ^ r ^task(l,tcbC2eD); „ init ourselves as a tMfc 

« stack_sise = (jnemavlO / number of_ports - 8) & OxFFFE' 

sccurset (1,26) ; ^ ' 

prmtf ("Stack sise tor tasks is fcd\n" , stack size); 

for U=0;unumber of _ports;i++) 
C 

if igood_port£i+0503) 
{ 

stackjtr * lint) _nmal loc Cstack_si 2 e> 5 /« get a rv*w stack * / 

30 (stack_ptr « HULL) C ' 

i 

Drintf ("Not enough stack memory tor # /.d\n",i>- 
continue; ' * 

) 

create.task(&tcbLiJ f stackj)tr,stacMi29.task,ij ; 

else 

35 tcbCi3.task_stat.us - TASK_STATUS_E*iT; 
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reschedule^ ; „ let everyone inJt con bsf(jre ^ (/ 

c +0r (number o+^orts;, ++ > /. enaole only needed interrupts ♦/ 

serial_init_interrupt (020+ i ,0) ; 

sccurset CdQ ,0) ? 

pnntf \"oress Esc to exit:";; 

d0 '* wait tor tasks tc comcier* « / 

i+ '. _p 1 os_keyb ra ( _KEYBRB_READY ) ) 

10 it (tchar; juDsjceyordiJCEYIdWjteAD) « Oxlb; 

breaks /""break -from 'do' loop #/ 

rescheduleO; 

flag = FALSE: 

tor (i-0;iinumber_of_ports:i++j 
if < !tcb£i].task status ) 
( 

flag = TRUE ; 

15 break: /» break * rotn for loQD %/ 

} 

whi le (flag) ; 

for (i-o; i (number ofjortuwl /« fllsa ble only needed interrupts «/ 
if igood _porU 1+0203) 

serial_init_mterrupt <020+i ^l) • 

20 

for \i=0;i<numberjDf_ports;i++) 

fDrintfierr^ri e ,«oertormance Kd %d\n- ,1+1 .performance chtckCi+oeO]) ; 
timer_undcw: " ' 

fclose<ses_f i le) : 
♦c iose'.err^-f lie) : 
sccurset l£2«0> : 
J 

/* TASK routine is here. We hope it is re-entrant. «/ 

tasK(task_id) 
int task id; 
I 

struct t_str trans; 
char *r*_buffer: 

rx_buf fer=mal loci 2048) ; 
if ir::_bu+ter == NULL; ( 

PutsC'Not enougn memory for n<_buf f er ! " > ; 

exit (&) : 

) 

memset irx_bu+ f er ,0.E04S) ; 
- J senaLinit Uask.id + 0S0 .9600 ,0x03 ,0x08, Oxi .rxjw* f er ,2043. J6N0RE NULL) ; 
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'uesday. October IB. 19gfl 

trans = gtrans; 

do_scr.pt (tasked + OSO.scnpt , length,targ V ,r*_b U ^ er * gtrans:: 

5 

/» Terminal rout in. here replace communication to master ./ 

void process icomx.numd) 
int comx, numb; 
{ 

corox -= 080: 

sccurset icomx'/,l& + 4,ic«nx/16) * 4n + 3). 
10 P r int^">i-10.10s".op_id_m S oCn U fl ! b2)| 

int reDor 1 1 comx , numb ) 
int comx, numb; 
{ 

char c; 

15 comx -= 020; 

sccurset tconxXie + 4, icoir,>c/16) « 4D + i 4) . 
ormtf (»>i-eo._0s- .status msoEnumb]) : 
it'.numD == i) ' 

( 

Eccurset <2l ,y> ; 
. prinHCA = abort, anything to continue ?-> ; «, 

li ( C == 'ft.) 

#* 
1 

sccurset (comxfci* + a, (coax/ 16) * 40 + *4> • 
print* ("ABORT *•) : * 
return TRUE; 

return FALSE; 
25 j 

void checkj>oint(co<nx i op_id f op_time,wali time) 
int comx, op_ia: 
long op_time, wall time; 
{ 

TimingRec t; 
int port; 



* / 



30 



port = comx - 020; 

sccurset iportXlb * 4.iDort/i6) * 40 + 14) 

if '.oo_ia 
else or 



intn^P^ nt ' r,T ^ N5Mm " 5ld ^Id-.oo^.ime.waU time., 



t .term no = comx; 
2c 1 .ooid = op_ia; 

^ " t .stopwatch = oo__timej 
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t.wal Hicks = waU_time: 

fwriteifct, sizeof tfimingRec) , l, sessile); 

int get_data(var) 

char varCKOLSOD: 
( 

int i: 
char *back; 



*or Li=i;iU0:i++) 

C 

10 sccurset \Zx .Oj : 

sririt* ("getvar:") : 

back = gets(var£i J) ; 

£cclrmsg(£l Jj.QQ) ; 

it iback == NULL; return EOF? 

i* <strcmD(varCi],»END") 0) return EOF; 

i+ <strcmpivar[i] ."") CO break: 

15 return NULL: 



int wait_+or operator O 
{ 

/* sccurset i81,0> ; 

onntt ("Waiting -for ODerator. Press any kev: N i i 
J?iosJcevbrd ( _KEVBRD_READ) : 
2q scclrmsg'Sl ,0,-80) ; ~ */ 



int oo_e*it icomx) 
int corny.: 
( 

comx -= OdO: 

sccurset (comxftlS + 4, iconx/16) # 40 + 35); 
Drintf ("EXIT") : 
25 return TRUE; 
J 



30 
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1 TASk#C Monday, October 3, 19SS 

struct ( 

char -far *next; 
char -far *stack; 
int stack_limit$ 
5 int tasK_status: 
) 

tcb[33J: 

long lengtn; 
char « script; 
char **targv; 

xnt taskdnt) ; 

mamO 
C 

int i ,j t numoer_of _ports, flag; 
unsigned stack.sire, stack _ptr: 

trans_init ikgtrans ,&g lobal) \ 

15 numt>er_o«f_port= = 2S; 

script = get .script UrgvC23 length ,op_idjnsg ) ; 
scpclr u ; 



Paoe 1 



20 



25 



30 



print* ("SCRIPT - )Ss" ,op__id_«sgC03) 5 

sessile = fopen("SPN.OP" ,"wb M > ; 
if (sessile — NULL) 

psrror<"open -failed"): 

err_tile = f open CSPN. ERR 11 ,"«••) • 
if ierr_.fi le = NULL) 

oerror ("error open failed") 5 

serial_port_setup (number_of .ports) ; 
tor (i=0;Knumber.of _porTs;i++) 

sccurset (i%16 + 4 f (i/l*> * 40) : 
print* ("Sted %i+l) : 
if ( !goodj>orUi+0S03) 
printf r (no oort) M ) : 

} 



targv = UrgvCSD, /* setup arav oo.nter ior tasks ./ 

first .task (&tcbC3E3) : /* <„, 4 

35 stacc.sire = (j.en.avU) / numoer^orts - £"5™," ' tM " " 
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sccurset U,£b> ; 

print f ("Stack sise for tasks is */.d\n" ,stack_si2e> ; 
for ( 1=0: 1 (number of_Dorts:i++) 
C 

5 it <goodj3orUi+0203) 

I 

stackjitr * imt) _nmallcc istack_size) ; /« get a new <=tack ♦ / 

if lstack_ptr — NULL) " " 

( 

printfCNot enough stack memory -for %tf\n M 4 ij; 

continue; 

3 

10 J reat& ^a5k<fetcbCi3,stackj)tr,stack_si2e,task 1 i); 
else 

^ tcbti3.task_status = TASK_STATUS_EXITi 

reschedule!): /« let everyone init com befQre inU f/ 

for u*U:z (number _of .ports ;i++) /« enable onlv needed interrupts ■/ 
15 it (ooca _porUi+0203) * 

senal_init_interrupt(020+i ,0) ; 

sccurset (24,0) 5 

orinif< "press Esc to exit:"); 

d0 C . '* wait -for tasks to comclete • / 

li (_bios_keybrd l_KEYBRD_READY; ) 

20 l * <<char) Juosj;eybrdiJsEYBRD_READ) == Oxib) 

break: /* Drea k from 'do' loop </ 

reschedule () ; 
flag = FALSE: 

for (i=0;i (number_of _ports;i++) 
if ( !tcb[i3 .tasic status ) 
£ 

flag = TRUE; 

25 break: /« break from for looo */ 

while (flag) ; 

for (i«0;i (number _of jjorts ?i+4> /. disab ie only needed internets «/ 
li (gooa_oorUi+0203) 

senal_init_interrupt (020+1 ,1) 5 

30 for U=0;i <number_of_portsn++) 

forintf lerr_f lis, "performance V.d V.d\n" + l ,3er<ormancsj:neckCi+Q203) ; 
timer_undo() : ** 
fc lose (ses^f lie) ; 
fclcse<err_f i le) ; 
sccurset (52,0) ; 
3 

35 
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1 TASK ' C Monday, October 3, 

/> TASK routine is here. We hooe it is re-entrant. ./ 

task i tasked J 
mt task id; 
5 ( 

struct t_str trans; 
char *rx_buffer; 

rxj>u**er=mal loc (2048) ; 
if (rxjaiffer NULL) { 

putsCNot enough memory -for rx bu-f+er"^' 
1Q exit<6»; " ' 

memset (rxjju-f-fer ,0,2048) ; 

S^V5;i^ ld + 0a0 ^ t0 ^°^'^B,OxUrx^uffer, £ 048;: 
do_.cript (tasked ♦ 0B0,tcript i l.ngth i t«r«v 1 rxJm««. + S.&trans,; 



Page 3 



15 



/* Terminal routines here reolace communication to master «/ 

voia process icomx, numb) 
int comx, numb; 
C 

comx -= 020; 

sccurset (cwx%16 + 4,(comx/lfc) * 40 + 3). 
20 ^ rint ^ M ^10.10s«,op.id.msg£numbJ); 

int report I com*, numb) 
int comx, numb; 
£ 

char c; 

25 comx -= 020: 

sccurset (comx'/iS + 4,(chx/16) * 40 + 14). 
print* <"y.-20.£0s% status msoCnumb]) : 
it inumb == 2) 
C 

/* sccurset (21 ,0) ; 

r - K? 4f( !J = / Dort ' ^Vthing to continue ?«) ; */ 

" " * touDper ((chari bios kevbrnt i^vRt-r. d-ah 

/« scclrmso (21 ,0,80) ; */ * los -*e\brd JCEfBMLteAD, I ! */ 

30 1* (r =s 'ft') 

( 

sccurset (comxKifc + 4,(comx/lfc) * 40 «► 34). 
Print* ("ABORT") ; ' ' 

return TRut; 

} 

) 

return FALSE: 
35 J 
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TASK.C Monday, October 3, 19S8 F S ge q 



voio check_point <comx,op_io,op_time,wall_ti(ne) 
int comx, op_iOi 
lone op_time. wall time; 

5 ( 

TimingRec t; 
int oort; 

port = comx - 050; 

sccurset iDorty.lfc + 4, (port /l*) * 40 + 14) ; 

if (op.ia — 0) printf ("TRANS-tm K5ld V.5ld" ,op_t ime.wall_time> i 

else orinttCXxFB X-6.6s '/.Std XSld" •oo.id_msQCoD.xdi ,op _time,waU_time) ; 

t .termno = comx; 

t .op id = op.id ; 

t. stopwatch a= op_time: 

t.wallticks = wall.time: 

fwrite(M. sizecf (TiminaRecj . 1. ses -file;; 
) 

15 int get_data(var) 

char vartlODCSOJ; 
( 

int i ; 
char *back; 

for (i=l ;i (10;i++) 
t 

20 sccurset (21 ,0) ; 

onntf ("getvar :") ; 

oack - getsivarCi]) ; 

scclrmsg (£1 ,0,30) : 

if (back == NULL) return EOF; 

if (strcmp (varCi] •"END" ) — 0) return EOF; 

if (strcmp (varCi] ,""> — 0) break; 

) 

return NULL; 

} 



25 



int wait.for.ooerator 0 

{ 

/» sccurset (SI ,0) ; 

printf ("Waiting for operator. Press any key:"); 
.bios Jcevbrd (_KEYBRD_F:EAD) : 
scclrmsa (21 ,0,S0) ; */ 

30 } 

int do_exit (comx) 
mt comx: 
( 

comx -= 020: 

sccurset (comxy.lt + 4,(comx/l£.) * 40 + 35); 
printf ("EXIT") ; 
35 return TRUE; 
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1 TESTF ' QRT -t Tuesday, October IS, 1*88 

Jf Test corns port to see if it exists and works properly 

(O coDyright 1938 Pynix, Inc. 
written bv: J , Wayne Schneider 
5 date; £ September 1988 

test_Dort (cooix; where com* is 1 to 77 octal and 

An error code is returned, 0 means it passed. 

^define FALSE 0 
^define TRUE 1 

10 

^include M \rhobot \serial .h M 
ttincluoe (bios.h) 

/* 

Set and check a single register in the 8250 

reg_cnecfc tconwval .error) 
15 mi com, val, error: 

C 

out c icoiruvaU : 
l* unptcom) — val) 
return FALSE: 

else 

return error: 

) 

20 

/* 

Test the com port to see i-f it exists and functions 

test_port icomx) 
i nt com;: : 
C 

25 int i, baudlo, baudhi, ier, lcr, mcr, flag, com, in, out: 
long tml, tmS; 

com m get_com_adr<comx); /« translate to a , port address «/ 

enabie_iO; /» get.com.aar disables int. we enasle * 



30 



if ( ! com) 

return 1; '« give up immediately on port 0 «/ 

flag = FALSE: ,* test +or pC5S . g card #/ 

tor i i s 0 : i E5fc. ; i++) 

•flag ;= reg_check(com+3CR,i .0x0002/ : 
if ( iicomx i 010) Lh flag) !! (tcomx > 7) u > + u Q} , 

return ukOOMi /, sta naard port'*. SC ratcn pad ♦ 

/* or PCSS oort *, scratcn good */ 
/* either means failure ♦/ 

35 aet_com_adMcomx>; • /« reset scratch on PCSS-8 ./ 
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1 TESTPORT.C 



Tuesday. October IS. 1-3S3 



Paoe 



10 



15 



20 



25 



30 



35 



ier = inp<com+IER> ; 
Icr = inp(eom+LCR) : 
mcr = anpiconi+MCR) j 

flag = FALSE; 



/« preserve tne old reg values <s/ 



/* assume good until proven otherwise *. 



flag != reg_checl:tcom+LCR.0xFF.r)y<Wi2> • ,< rh „, t , 
flag i= reg_check <com+LCR,0xS0 ,0x0008) : /* »* * i_ „ K . „ 

baudlo = inp(caD*LSD)f E 5 *\ 1 ** Ud r * te divnor latch «/ 

oaudhi = inptcom+flSB); Preserve the old Daud rate */ 

flag i= regjzheck <con*LSD,OxPF ,0x0040) ; 
flag ;= reg_check (com+HSD.OxFF .0x0080) : 
flag J= reg_check<com+LSD,0x0C,0x004*) : 
flag \ = reg^check (com+MSD .0x00.0x0080) : 
flag }= reg_check (com+LCR , OxlF ,0x0003) : 
flag ! = reg_check(com+MCR,0xl0.0x00£f0 ; 



outpicom+THR,0xA5) ; 
sleepcE): 

get_com_adr(comx) ; 

if ( ! Unp(com+LSR) & DR) ) 

flag = 0x0100; 
if <inp (com+RBR) f= 0xA5) 

flag = OxOEOO; 
flag 1= reg^checktcom+IER^xOO, 0x0010) ; 



/* check out the ai visor regs */ 
/« set to %00 baua «/ 

/« set even oarity, p data, t stop «/ 
/* set loop 'back #/ 



/* test for rx by sending a cr.ar ♦ / 
/* this enables interrupts ♦/ 
/* reset scratch on F€SS-S & DI */ 
/* check for data readv */ 

/* compare the data */ 

/* disable 8250 ints again </ 



moicom+MSR) ; 

flag != reg_check(cDm+«CR f 0xlF t 0x0O£o": 
if <mpicom+MSR> f= OxFB) 
f lag = 0x0400; 

flag i* reo_checkicom+MCR,0xl0.0x0OB0): 
i+ dno (com+MSR) OxOF) 

flag e 0x0400: 
if unp(com+MSR) != 0x00) 

flag = 0x0400: 



/* test the Modem control lines #/ 



if i !flao> 



/* don't ao timed loop if oad alreaav */ 

-b.os.txmeofaay^TIME.BETCLOCK^tml) ; loop d6ta thrflugh ^ & ^ ^ 
ior ( m=4S , outM8 : in < SO : ) 
enable iO ; 

r bios_ti»epfdav(_TlME.BETO.0CK.i ! t«S), '! ^l\£ t 7?' WXt *' 

i+ ltm2 > (tml + en , ,: ?, th£ tlme *•' 

{ /* allow enough time ♦/ 

■flag = 0x0800; 
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x TESlPOftT.C Tuesday, October 18, l^Stj 



Kaoe ci 



break : 

!?iSr^r° ' " r ™< " " » 

if <inp(com+LSR) & THRE) 
outpicom+THR.out++> ; 
l-f Unp(com+LSR) & BR) 

if (ino Icom+RBR) != in++) 
flag = 0x0200: 

) 



10 



15 



get_com 
flao 
'flag 
f laa 
flaa 
flaa 
flag 

enable_i 
return f 



.aar(comx ; /t reset 5cratch 

reg.checfklcom+LCR, 0x80 ,0x0008); /« set all back ^ w w 
reg^ch B ck(com+MSD,bauclhi ,0x0080) s W * S ' 

reg_checkicom+LSD,baudlo ,0x0040) : 
reg_chec k < com+LCR , Icr , 0x0003 ) ; 
reg_check (com+MCR ,mcr .0x0020) ; 
regjrhec k (com+I ER , i er , 0x00 10); 

° ? '* ^turn with interrupts enabled */ 



lag; 



/* return -flag */ 



20 



*/ 



25 



SliflE* ! Wl ? ? t0 l0 ° D baCk 5lgnals and d * ta - T *>* routine 
H iL2f\ l00P dCK * " Da0lllt V. Only DTR fc tli sianal. are --tea 

Keturn an error code, 0 means it passed. 

It is absolutely necessary to have called serial init and 

serial.inxt.interruDt, prior to this test. Enable Px interrunt* 
and orepare to run at a minimum of 3600 baud ana 512 toil buf J*r 

It is best to call 't..tjmrf Prior to this test? * f ' 



looD^test joort tcomx) 
int comx: 
( 

int c, j, mcr, flag, com, m, out; 
long tffll, tm2: 

com = get _com_adr (comx) ; 



30 



if ( ! com; 
( 

enable_i i) ; 
return 0x0001 ; 
) 



/■ translate to a port address k Dl «/ 



'« give up immediately on iort 0 »/ 



35 



flag = FALSE: 
if (if lac) 



/* assume good until proven otherwise ♦/ 
/* don't ao timea looo if bad already */ 
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1 TESTPORT.C 



Tuesday, October 13. 1933 



Page 4 



10 



15 



/* clear tne butter k status */ 



sjrlear icomx f O) ; 
rx_statusicomx) : 
enable 

. Bi o 6 .r,..o iMyl .T WE . SETCL0CK . lt . 111 s t . ,« ., 

for ^( in=i , out=l ; xn < 255 5 ) 

r? i ?^ i ru2ri-7) I f- SETCLQCK ' MfflS> 5 " Check th * tine 

c /* allow just enough time */ 

flag = 0x0800; 

break ; 

3 

H (out ( £56) 

if Ispushcicomx.out)) 
out++; 

if ( (c * BpuUcCcomx)) != -1) 
if (c != in++) 

Hag = OxOSOOs 



20 



flag != rx_status(comx) : 
if (flag) 

flag != Oxl 000 5 
enable^! (; : 
return + lao; 
3 



/« check for rx errors */ 

/* set special error code «/ 
/■ return with internets enable* •/ 
/* invert k return tlaa */ 



25 



30 



35 
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1 TIMER,C Wednesday, August 31, 1983 PaQe , 

/« Timer routines are located here. 

(C) copyright 1983 Dynix, Inc. 
written by: J. Nayne Schneider 
date: 23 August 1983 

*/ 

ttinclude "sp.h'' 
ttinclude "sp_data.h" 
#include <conio.h) 
ttinclude (bios.h) 



15 



20 



Timer_init resets the count in timer 2 of the 3253 so that a clock 
pulse is exactly l/20th of a second instead of the goofy value used 
by PCs. We also initialize the system clock to 0 so we never have 
to worry about running over midnight. At the end of the session, 
we fix the clocks back to normal. ' 



*/ 



void timer imtO 
( 

long t = 0; 

_bios_ti«eofday(_TirE_6ETCL0CK,t<day time) : 

:S:S; -t -tvi-r t- 5*» 

_bios_timeofday<_TIME_SETCLOCK,a), /« rese t rtc to zero ./ 



25 



/» 



*/ 



Timer_undo fixes up what happened in timer _init to return the clock 
to normal » 



timer undoO 
C 

long t; 

_b 1 05_t i meof day (_T I MEJ3ETCL0CK , tt\ ) ; 

outp (0x40.0) : n reset count to 65536 »/ 

outp (0x40,0) ; 

day.time += (t « 1092) / 1200; /* adjust the clock «/ 

30 -hios.timeofday(_TIME_SETCLOCK,t<day time): 



35 
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I TRAFFIC. C 



Tuesday , October IS, i*3fc 



procedure TR AFF I C ^PACKETS 

5 All data, between the slave tasks and the master, travels in packets. The 
oackets are routed to the appropriate tasks by this task. 

/* #defme DEBUS */ 

extern int const MASTER PORT; 



10 



15 



^include "sp.h" 

tinciuce "xrhoDDtXspjjata.h" 

tfincluoe 4, sp_Qdata.h" 

fcinclude <bios.n; 
tfincluoe (staio.n) 
tfmciuae tmalloc.rw 

oacKet structures data 



struct s chain 
C 

struct sjjacket *head; 

struct s_packet ttail; 
20 ). 

struct s_chain rx_chainC323 ; 
struct s_cham tx"cnain: 



/* allocate 3d chain ptrs */ 
/* and 1 t:< chain ptr «/ 



25 



procedure prototypes 

void dojr>c_trat«fic(void) : 
void do_tx~tra-Hicivoid> ; 
void add jacket (struct s_packet *, struct s_cham *>: 
struct s_packet *remove_packet (struct s chain *); 
struct sjjacket *rxjaacket (mt ) ; 
void s>acket_answer (struct sjjacket *,int>; 

procedure TRAFF I C_PAQ=£ETS 
****** ****«*«*******»*t*##*#«w 

void trafficjacketsi) 

c 

-for (ever=TRUE ; ever ; ) 



35 



reschedule () ; 



/* do torever */ 
/« give everyone a chance to run */ 
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X TRAFFIC. C Tuesday, October IB, 19SS 

it l^Dios_keybrd (_KEYBRD_READY) J /« g lve up, wnen commanoed ./ 
it l tcnar ) _Dios_Keyord (_KEYBRD_REALO == OxlD) 

Teak; /« "break -from 'do' loop '■/ 

5 do_r>:_traffic() ; /« receive data */ 

do_tx_tra+fic(): /. transmit data «/ 

} 

procedure D0_TX TRAFFIC ' 

10 

H any task r.as a pacKet to transmit, we do our best to oet it out »s c 0cr . 
as possible. We expect tne longitudinal parity to already oe calculated " 
and stored in the last position. It is included in the count. 

««•••«*»»««*.*««»««•«««««•««„,», «<«.,«, *»#«*•••♦.•»„.,. 

void do tx tratticO 

15 { 

static tx_cneck = 0; 

static int length: 
static struct s _pacfcet *tx; 
static char far *tx_ptr; 

switcn itx check) 
C 

20 case 0: /, \ ook ior a Dacket to send f/ 

tx = removej)acket <&tx chain); 
if itx i= NULL) 

tx.check « 1; /« setU p to send thfi % 

break; 

) 

. case 15 /« sena tne TYPE coae «/ 

* ^ { 

i+ ( iSDushc t MASTER _P0RT , tx-)packet CTYPE3) » 
oreak ; 

#itdet DEBUG 

prints ("TX , /.2x'Vx->packetCTYPE3) ; 

#endi* 

tx.checfc = 2; 
break; 

30 3 

case ( £: /« send the LENGTH * / 

if i!50usnc (MASTER _P0RT, tx-) packet CLENJ) ) 
oreak : 

ttiiaei LifefcUte 

print* ( w X5x N ,tx-)DacketLLEN]) ; 

tfendif 

35 tx_check = 2: 
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l TRAFFIC. C Tuesday, October IS, 19S& 

t:._ien:itn =■ t>v-jpacfcet iLtNj : 
ixjDtr = fctx-JDacketCDEST] ; 
break : 

5 

case^S: /* send the bulk of the DATA */ 

if (ispushc (MASTER .PORT, *txjDtr)) 
break ; 

ttifdef DEBUb" 

or int f ("/3x'Vtx_ptr> ; 

#enaif 

10 

tx_ptr++: 
— tx_iengtn: 
it itxjength) 
break : 

#itdef DEBUG 

printf ("\n") ; 

ttendif 

15 tx_check = 0; 

it (tx-;packet[TYPE] != SVN; 

Jireeitx) ; /* release acknowledge packets •/ 



?ags 2 



20 



procedure DQJMJTRAFFIC 

If a cnaracter has been received, process it. It may be the start of a 
25 packet, an ACK » a NAk, or a data part of one of these. Flags are kept 
to tell us wnere we are at. 

******************************************** **** k9i , n + . , 

void do rx traffic 0 

{ 

static int rx_check = 0; 
30 static int r>c_parity; 

static int rx_length; 
static struct s_packet *rx: 
static char far *rxj>tr; 
int c: 

c = souUciriASTER.PORT) ; /* cneck for a cnarac^r «, 

if '.c == EOF) 
• - return; 
3 5 #lfoef bEBHia 
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1 TRAFFIC .C 



Tuesdav, October IS, 1 



Paae 4 



10 



print* ("-^dx " ,c; ; 
4tendif 

switch irx check) 
C 

case 0: 
C 

switch (c) 
C 

case ACK: 
case m\\: 
case CAN: 
case SYN: 
I 



15 



20 



/* watch for first character ►/ 

/* collect any of these kind */ 
/* start of a packet of oat a * / 



rx_panty = c; 
rx_checfc = 

rx « _fmailoc(sizeo*(S_FACK>) ; 
if trx — NULL ) 

r 
v 

displayC tmalloc") ; 

e>ci til): 

} 

r>:->packetCTYPE] = c: 
rx_ptr = rx->oacket + LEN; 
break; 
) 

de-fault: /* garbage cnaractsr */ 

rx_check = 0; 

rx_statusCMASTER_PORT>: /* discard errors a= weP #/ 
break : 



break; 
) 



25 



30 



35 



case 3: 
C 

* <rx_ptr++) = c; 
rx_length = c: 
rx_panty. c; 
rx_checfc: = Q; 
Dreak ; 

) 

case 4: 

t 

* lrxj>tr++) a c . 
rxjanty c; 
— rx_length; 

if <rx_\ength) 
break ; 



/« handle a new Dacket - length «/ 



'* get the data for new pacKe*. </ 



rx_check « 0s 
if irx->oackeUTYPE] != SYN) 
i 



/* orocess the oacfcet by tyDe «/ 
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1 TKrtrFlc - c Tuesday, October 18, 1988 

if (rx-> packet [flEST J < numoer _of _ports) 

tx_answerCrx->oacketCDEST33 = rx->packet LTYP£i • 
_ffreeirx): -1 

} 

5 else 

( 

if (rx_parityi 

rxjaritv = 0x20; /* includma error «ta*u= */ 
rx->packeUSTATUS] = rxjanty J rxlstatusCMASTER^PORTn 

if Crx-ipactotESTATUB] == 0) /• do we ACK or NAK or CAM * */ 
if (rx-)DacketLDEST] < number of_ports) 
10 c 

packet ^answer (rx , ACK) 5 

add_packet (rx ,fcrx_cnai ntrx->packet CDEST3 3 ) : 

else 

C 

packet_answer (rx,CAN> : 

-**reeirx)i /* ignore Pad address oackets ♦/ 

else 

C 

pacfcet_answerirx,NAK); /. request retransmission */ 

_ftreeirx>: 
) 



Page 5 



15 



20 



) 

Dreak ; 
) 



aefa ^ lt; /« rx^cneck default */ 



25 J 



rx_cneck = O; 

oreak : 

) 



proceaure ADD_PACKET 
Add a oacket buffer to the chain of packets, updatino head h tail oointPr- 

3q void add_packet (ax, chain) 
struct s jacket *ax: 
struct s_chain *chain; 

C 

ax->Unte = NULL ; 

if ichain->tail == NULL) ,« n tne llst 15 eapt „ 

chain-mead * ax; /* adjust head otr also «/ 

e Ise 



cnain-) tail-) link = ax; /« always add on end of chain . 
35 chain-nail = ex; „ alwavs set t31 , „° „ 1 ' 



/ 



/* always set tail to oomt at new one ./ 
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1 TRAFFIC. C Tuesday, OctoDer IS, 19& ' f . aQe € 



10 



orocedure REM0VE_PACt%ET 

Remove a packet buffer from the chain of packets, updating head U tail 
Dointers. Return a pointer to the packet, or NULL if there is none 

struct s jacket * remove jacket ichain; 
struct s chain *cham; 
( 

struct s jacket *mx\ 



15 



if (chain-) head == NULL) 
return NULL; 

if ( <*cham->head) .link = 
chain-) tail = NULL; 

mx = chain->head; 
cham-;head = mx->link; 
return <nx; 
) 



/* if tne last 15 empty */ 

/* return NULL */ 

NULL; /* if tnis is the last item in cnain */ 

/* set tail to NULL */ 

/* 6et otr to packet */ 

/* Unlink the packet #/ 

/« Return the packet </ 



procedure RX_PACKET 

20 r 

Si?" ^"T tnerS 15 ° nB ' 11 retUrns a NULL if ^ no 

packet, or a ptr to a packet. 

struct s jacket *r>c jacket (task id; 
mt task id; 
C 

25 return remove jacket (farx JhainCtask^idJ) ; 

procedure PACKET_hN3wER 

Remove a packet buffer from the chain of oackets, upaatino head fc *ail 
pointers. Return a pointer to the packet, or NULL if tnere ifnone 

voio packet ^answer i r>:, answer) 
struct s jacket *rx; 
mt answer: 
{ 

struct s jacket *ax; 

c 



30 
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1 TRAFFIC. C Tuesday, October ii\ 

oisplavC^tnalloc") : 

exit (1) ; 

) 

ax->packeUTYPE3 = answer; 
5 ax-;packettLEN3 = £; 

ax->packeUDEST3 = rx->packet tSRC3 ; 
ax-;packeUSRC3 = rx->packeUDEST3 : 
addjaacket (ax,fetx_cham) ; 
} 

procedure TX PACKET 

Build and transmit a packet, toe must wait for an answer before cont'nuina 
We can get back ACK. . NAK. CAN, or timeout. com. run.*. 

int tx_packet(dest ? task fc id,cmd,len,data) 
int dest ,task_id,cffld,len; 
char *data; 

( 

struct s_packet *tx: 
int parity, i; 
long tm,new_tm; 

Xk = .fmallDctsiseof (b_PACK)> ; 
if (tx — NULL ) 

C 

display("_fmalloc M ) ; 
exit (1) ; 
) 



15 



20 



if < Uen+4) ) PACKET .BUFFER _5 1 ZE ) 
return LAN: 

tx-;packeUTYPE3 = SYN? /* build up tne packet «/ 

tx-/ packet CLEN3 = len + 4; 
tx-> packet CBEST3 = aest; 
25 tx->o&cketCSRCJ = task_id: 
tx->packeUCMD3 = and;" 

oantv = 5YN - (len + 4) * oest - task id * cma: 
for (i=0;i <len;i++) 

e 

tx->packetCDATA+i3 « dataCiD; 

parity dataCi3: 

3 

3q tx->packetCDATA+i3 = parity; 

*or ti-0,i<B|i++) /* try to transmit 8 times at most ./ 

tx_answer[task_id3 = 0; 

•ddjtctetttx f £tx.chainJs /• hand it off for transmission */ 

^oaos.t imeof day ^TIME.GET CLOCK .^tm): /* watch the clock while we wan 
35 rescneauleO ; 



SUBSTITUTE SHEET 



WO 90/10269 



PCI7US90/01026 



-81- 



1 TRAFFIC. C Tuesday, October IS, 1*583 



" i+ (tx_an5werCtask_id]) 
break ; 

_b l os_t l meof dav ( _T I ME J3ETCL0CK , &new_t m ) ; 
) while ( <tm + 200) 7 new_tm ); 

switch itx_answerCtasl; id J) 
C 

case ACKj return ACK; /« good transmit */ 
case NAK: break; /« retry i/ 

case CAN: return CAN; /# give up */ 
default: return -Is /* retry on timeout */ 
) 

) 
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1 TRANS.IT. C Wednesday, August 31, 1-38S P . an , 

r age i 



/* 



5«/ 



ZTt^ull 15 ^ t0 ^ the daU iiXe called "BP-DAT- and 
\hI r*ll ♦ ° mB 5VStem paraffleter s. If the file is not found, 
the parameters are set to a default. ' 



# include "sp.h" 
#include "sp_data.h" 
#mclude (stdio.h) 

void trans_init (trans, global) 
struct t_str *trans; 
20 struct g_str *global: 
C 

FILE *stream; 
char buffC1003; 



15 n i h i"! think = 4U; /« think time is 2 seconds */ 

l a : } ^! = *J»I /B don '» <°r 30 seconds */ 

globawthrottle = 5; /* assume 50 worn typina rate " 



stream = f open ("SP. DAT" , u r w ) ; 
if (stream == NULL) 
goto give_up; 

if (fgets (buff ,100, stream) == NULL) 
* u goto give_up; 

trans-)rate =~atoi (buff ) ; 

if (fgets(buff, 100, stream) NULL) 

goto give_up: 
trans-) loop _count ■ atoi(buff); 
if (fgets (buff ,100 .stream) == NULL) 

gotD give_up; 
global-) think » atoi(buff); 
25 if (fget s (buff ,100 ,stream) == NULL) 

goto give_up; 
global-) timeout = atoi(buff); 
if (fgets (buff f 100, stream) ■» NULL) 

goto givejup; 
global-) throttle = atoi(buff); 

give_up: 
2q fclose(stream) ; 
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1 SERIAL. H 



Tuesday, October IS, 1988 



Paae l 



'« Serial port definitions 

iC) copyright 19S3 Oynix/lnc. 
written by: ?. Wayne Scnneiaer 
date: 5 September 



taefine R;;_BUFFER_SIZE 204S 



#def ine 
tide-fine 

10 #def ine 
#def ine 
tfde+ine 
#def ine 
ttdef ine 
ttdef ine 
ffoef ine 
ttdet ine 

15 soefine 



THF: 0 
RBR u 
IER 1 
1IR 
LCR 
MCft 
lSk 
MSR 
SCR 7 
LSD 0 
MSD i 



#detine ERDAi 0x01 
ttaefme 8 DMT A 0x03 



20 



tdefme DTR 
ffoefine F;Ts 
#define GuTS 



OxOS 



enaoie receive data availaote interrupt •/ 

/* £ data bits */ 

/« data terminal ready */ 

/* request to send */ 

/« ibm master interrupt enable */ 



frdefine Dft 0x0 i 
fcdefine BI 0x^10 
ttdefins THRE 0x20 



ftdefine IGNOREJIULL 0x01 /* buffer control register values «/ 



25 



void com_break<mt ,int ) ? /* 

int rx_statusunt> ; /* 

mt spullc (int> ; /* 

int soushcunt ,char) t /* 

int tx_status<int) ; /* 

int s_clear unt ,intJ ; /* 

char far *s_Duf fertint ) : /* 



(comx,ma5k? mask=l means set, 0=reset >/ 
(comx) returns LSR and buffer status */ 
icorax) returns char or -1 if none ♦/ 
(comx,c) returns FALSE if failed */ 
Ccomx) returns FALSE if not ready t/ 
lcomx,flag) zeroes rx buffer. If (flag) 

then buffer must be empty 1st 
return rx buffer oomter «/ 



30 void senal_init tint .unsigned, mt, int f int, char far * .unsigned , int ) ; 

/» arcs in order are: 

comx - com oort address 

baud - baud rate aesirec- 

Icr - line control register value 

flier - modem control register value 

ler - interrupt enacle register value 

buff - FAR Duffer oomter 

35 £ *2* " b^iier size in Dvtes 



bcr - Duffer control register value ♦ 
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1 SERIAL. H Tuesday, October IS, 19SS 

void seriaUmt.interruDtQnUint,: /« (co.nx.mask) ma 5 k=0 enaoles int v 

5 



Paoe 2 
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lb! " ,M Tuesday, October IS, l*SS PaQe 

/• 

•P.n contains definitions tor general purpose things and functions 

(C» copyright 1*32 Dvnix. Inc. 
J/ . wr *tten by: J. Wayne Schneider 
aate: io August 198S 

define FALSE 0 
ttdefine TRUE l 

10 

/« Function definitions help prevent programmer errors «/ 
int tx_p«cK»tunt,int f int f int,cnar *): 
struct s_packet »rx_packet lint) ; 
void siavetintj : 

1 g mam task routine */ 

int test jaort unti ; 

voic reschedule vvoid; : 

void orocess'.int . int J ; 

void putvargimt. unsigned char, char C10DCS0J, char *[]>: 
20 mt reoortunt, int>: 

void weclcj)oxntixnt. int. ionc. long;: 
int getvarichar L103E803) ; 

unsigned char »g»t_ 6 cr ipt unsigned char *. long «. char *12>: 
25 void sputcunt , int) ; 

void sputslmt . char *. } ; 

char sgetcunt ) ; 

cnar «ir:_circ (char *) \ 
3q void st lushtmt) ; 

voio cis5-_input_window« mt J : 

voi d mom tor 1 1 nt / : 

void do_scnotCint, char <. long, cnar *U, cnar '.struct t_str .* . 
2g void si sect unsigned int. 1 : 
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1 SP.H 



Tuesdav, October IS , 1988 



Paoe 2 



void coffi_Dreak(im , inli : 
xnt rx_statusunt) ; 
^ m.t soul ic'inU : 

mt sousncunt, cnar) ; 
int t>:_status unt; ; 
int s_c lean int, mt/j 
10 char tar *s_t>u*ter lint ) \ 

mt wait_tor_poerator wcid.' ; 
voic t imsr_i nit (void) ; 

void trans_init (struct t_str *, struct g_str 
J5 mt ao_e\it tint) • 

mt rana^normunt ,int ) ; 
int rx_error (xnt) : 

void checkout ivoidM ,« do_scnot calls to see 

20 
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Tuesday, October IS, 198S 

Page 1 

/> Global oata declarations tor SP.C 

<C> copyright 1*SS Dynix, Inc. 
written by: J . Wayne Schneider 
3 date: £3 July 1988 

*/ 

extern mt oer tormancejrheckCOfrO j ; 

extern int mom tor_port CO&CO ; 

1Q fcdetme m_but +*_si:re 5045 

extern cr.ar m_oummj>uH_si2e3 : 

extern mt m_tmtt_cnt~; 

extern char »\Duf\in, *mjjUTt_out: 

extern long day_time; 

25 extern char *OD_id_flisg 1:503 5 

extern char *Drocess_id_msgC5CO ; 
extern char status.msgCiniSJ ? 



20 



struct t_str ( 

unsigned rate: 
int abort; 

unsigned looo count; 

struct c_str ( 

unsigned int think; 

unsigned int timeout; 

unsigned int throttle; 



25 extern struct g_str global; 

extern unsignea staci-:_siie: 

extern cnar « signature; 

•define PACKET J&UF FER _S i ZE E*0 

2q ttdetine STATUS O 

ftdetine TYPE 1 

tfdefme LEW £ 

#detine E€ST 3 

ffdefine SRC t\ 

#detine CMD s 

frdefine DATA i 

tvpeae* struct s packet 
35 ( - 



/* oacket + TYPE + L £N •/ 

// error status is here >, 

>* tvpe ot packet, usually SYN «/ 

/* length oi packet */ 

/* destination task io «/ 

/* source task id */ 

>* packet command */ 

'« data for command >/ 
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SP_DA1A.H 



Tuesday. October IS, 1988 



Page 2 



10 



struct s_Dacl:et Mink: 
char Dacket [PACKET SUFFER 
J SJ--ACK: 

tfdetine ENw vx05 
ftoetine hCK 0x06 
tfdetme NAK 0x15 
#define SYN Oxi6 
tfdetine CAN Ox IS 
fcaetine ESC OxlB 
^define I TEST 'I' 
#de*ine ETEST 'E' 
#de-fine PASS 'p' 
fcdetme PASS_BREAK 'B' 

tfdeline CP 0x00 



JSIZE3 ; 



/* 
/* 
/* 
/* 



wno are vou? */ 
good packet */ 
baa packet */ 
sync start oi packet */ 
cancel a packet «/ 
/* escape from program */ 
/* internal port test */ 
/* external loopback port test */ 
/* pass through to Wyse */ 
A pass through a break */ 
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1 SPJ3DA1A.H Tuesoav. October IS, 1938 

/* SP global aata definitions tor use bv SP routines 

(C) cooynont l*S3 Dvnix, Inc. 

written dv: j. wavne Schneider 
5 aate: 1 September i*8Q 

•extern int good _por* 12£) \ 
extern mt ^curtcb: 
10 extern int number_pf j>orts; 
extern struct s_tcb ' tcb£333 : 
extern cnar tx_answer[3£3 ; 
e>-:terp mt ever: 

15 
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lDISPLAV .ASM 



Tuesday, September 20, 1*?SS 



K*ge I 



To: Dynxx, Inc. 
Attn: Wayne Schneider 
From: Terry Bell (415) 633-3710 
5' Ever ex Systems, Inc 

* Ref : LED Display list mo 



page 
tit le 
-£Sbc 



display £ characters to -front panel LED 



10 



Name : 


Display. asm 


03-07-SS 


CYL 1.00 — file created 



cseg 



segment 
assume 



15 



word public code- 

cs :cseg, asrdseg. ss:ssec 



Equate Values 



20 



PmtPrt 

PmtLmt 

DisCmd 

DisSise 

CmdPort 

DatPort 

StatPort 



Display: 



25 : 



Inout : 
Output : 



Display 



30 



35 



eau 
eau 
eau 
eau 
eau 
eau 
eau 



OSOh 
040h 
ObOh 
003h 
OMh 
O&Oh 
064h 



:oointer to start of oara/seter; 

parameters Ixmit 

;di splay command tor 

:display message size 

;S04£ command oort 

:S042 data port 

;S04S status port 



This program will output eight character* to the 
front panel display module. It will also ens-r-^ tha< 
the message is exactly eigni characters and theV-4£ 
is properly functional, if not, error messaoet ^ 
displayed on screen. ' ' 

Eight characters on command line enclosed by ♦-.o 
character ' . Y 
All registers restored 



proc 



far 



oush 


ax 


push 


bx 


push 


d>c 


push 


si 


DUSh 


ds 


mov 


ax,seg dseg 


mov 


ds.ax 


mov 


dx, off set EvSion 


mov 


ah. 9 


mt 


£lh 



;save AX 
:save BX 
:save DX 
:save 51 
:save D8 

;set DS to data segment 

4 

;get message address 

sprint EVEREX-s copyright message 
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1 LiiBPLAr.Asn 



DisdS: 



10 



Disd4 : 



15 



20 



25 



UisdI: 



DispE: 



30 



Disp3: 



DlSDb! 



mov 



Tuesday. September fcO, 
si,PmtPrt ;set oointer to parameter vosdj 



Paoe 5 



35 



CHIP 


bvte ptr es:Lsx3«00h :check for valid parameter 


je 


Di.spi 


;go it ves 


add 


si ,£ 


:set to parameter table 


mov 


al,es:Csi3 ;check command line -for ■ character 


crop 


al. 


■ 


je 


Disp4 


;go if found 


cmp 


al.Odh 


:check for carnage return 




Disofc 


;go if found 


mc 


si 


• 


udip 


si .PmtPrt+PmtLmt :max characters scan 


JO 


DispS 


< 


J AID 


short Disd* 


;print out usage messaae 


IIIUV 


al ,es:tsi+DisSize+13 ;checfc: for end of message 


CIJ1D 


al,"'" 




jne 


DispS ;go 


if message not 8 characters long 


r a 1 1 


DispOut :outout characters to display module 


or 


al .al 


.check tor SOtS error 


jnz 


DispS 


;go if anv error occured 


mov 


dx, off set NoErr 


;get message aacress 


mov 


an, 1 ? 


• 

« 


i nt 


£ln 


:no error message 


amp 


short DispExit 


:exit routine 


mov 


dx .offset UseHsg 


;get message aadress in DX 


mov 


ah ,9 


;D0S print string function 


int 


8lh 


• 
■ 


amp 


short DispExit 


;exit routine 


mov 


dx, off set MEErr 


:get message address in ox 


mov 


an.* 


;D0S print string function 


l nt 


£ln 


• 


j mo 


short DispExit 


;exit routine 


mov 


dx. off set ErrB042;get message address in DX 


mov 


ah,* 


;D0S print string function 


int 


£lh 


a 
• 


omp 


snort DisoExit 


.exit routine 


mov 


ax, off set MErr 


;get message aoaress in D.« 


mov 


ah .9 


;D0S print string function 


int 


tin 


: OisoExit: 


OOP 


ds 


:restore DS 


pop 


si 


:restore £1 


pop 


ax 


. ;restore DX 
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KHSPLAy.ASM 



Tuesday, September £0. 1938 



F'aoe 



OOD 


bx 


ODD 


ax 


mov 


ax, 


int 


Elh 


endp 





10 



DispOut : 

Input : 
Output : 



OisoGut 



15 



20 



DispOut 1: 



25 



jrestore bx 
irestore AX 

;exit through DOS Display 



30 



DispUutExit ; 



BisDOut 



35 



This routine will output eignt characters to the 
disoiay module. 

SI register containing ot+set address ot m e ee=ao* 
ES register containing segment address of m^sao* 

AL=0 - No errors 
AL=£ - B04£ error occured 



oroc 


near 


push 


PX 


pushf 




cli 




mov 


bx,i 


call 


EmptyS04£ 


jnz 


DispOut Exit 


mov 


al .DisCmd 


out 


CmdPort f al 


jmp 




call 


EmotySMe 


jnz 


DispOutExit 


mov 


al ,es:Cbx+si] 


out 


Da t Port ,al 


J mo 


*+£ 


inc 


bx 


cmp 


DXtDisSise+l 


3D 


DispOut 1 


xor 


al,al 


popf 




pop 


bx 


ret 




endo 





:save £?x 
?save present tlag status 

:ensure no interrupt 

;set BX count to one 

:wait -for B04£: not dusv 

:go it 304£ error 
:display message command to 

rsend display command 

;i/o delay 

wait -for 304£ not busy 

:go i-f error 
?get character 
:send to display through S04E 

:i/o delay 
;pomt to next cnaracter 

:checfc tor er.o ot message 

.■continue til oone 

;clear error code 
:restore flag status 

:restore BX 
treturn to cal ler 



Emptv804£: 



This routine waits tor the Su<+2 mout Puffer 
to emptv 
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1 DISPLAY .ASM 



Tuesaay, September SO, 1SQQ 



Page 4 



Input : 
Output : 



Empty 804 2 
EmptyLoop: 



10 



cseg 



15 



20 



dseg 
EvSign 

UseMsg 



IMoErr 



db 

-db 
ab 
db 
db 



Nothing 

AL=0 - S042 input buffer empty 
hL=5 - time out. a042 input buffer full 



Droc 

pusn 

xor 

in 

jmp 

and 

loopn: 

DOD 

ret 
endo 



near 

cx 
cx,cx 
a I. St at Port 
$+2 

a 1 .000000 10b 
EmptvLooo 

cx 



:save Ca 
;maximum wait time 
:read B042 status port 
;i/o delay 
;check for command port full 

;continue til empty or timeout 

?restore Cx 
treturn to cal lerEmptv3042 



ends 



Data Segment 



Program Messages 



db 



db 



MErr 
MEErr 
ErrS042 
dsea 
25 



dt- 



ab 



segment 

"EVEREX Sr STEMS, Inc. System Utility VI. 0. 
"CO Copyright 1*SS. All rights reserved . u ,10.13 

"Usage : DISPLAY 'message 10 , 13 
message : user defined messaoe " 
"(must be exactly S characters)", 10,13, 10, 13, 
••Message has been sent to aispiav module — errors 

"Error: Message not found" ,10.13, u $" 
"Error: Message roust be exactly 3 character 
"Error: 8042 not responding" , 10 , 13 , "*" 

ends 



,10,13 
,10.13."*." 



: O". 10.13 
• lO.iLVs" 



Stack Segment : 



General Programing Stack 



sseg 

sseo 
30 ; 



segment stack 
db 258 duo(O) 

ends 



end 



Display 



35 
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Monoay, October 3, 1988 



/* Display tsxt on the Everex Step front panel i H . 

Data less tnan S bytes long will be padded Hith'blsnks. 



Page l 



int 



id copyright 19&8 Dvnax, Inc. 

written by: », Wayne Schneider 
date: Hi Seot ember 



disolayfbuff ) 
char buff CD: 



( 

10 xnt 1: 

int 1; 

I - str lenibuf f J ; 
aisab le_i 0 ; 

while c a no (0x64) £1 QxQE) 
15 outp(0x&4 f 0xb0> ; 

for ii=OiHSji++j 

c 

while linp(0x&4) h OxO£) 

continue: 
if (Ml) 

outo(Oxfc0.buff Cai) : 

20 el5e 

outpiOxbO,' 

) 

enable 10; 
3 



/« set up tor btank padding */ 

/* issue. display commane to a042 •/ 

/» output display text */ 



/* oad with blanks «/ 



25 
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^ INTERUPT.ASM FridaV) September 16, 1933 

TITLr 1N7ERRUPT_SPECI AL_FUNCT IONS 

; disable.! () 

; enable i () 

.5 

.TEXT SEGMENT BVTE PUBLIC 'CODE* 

.TEXT ENDS 

.DATA SEGMENT WORD PUBLIC 'DATA' 

.DATA ENDS 

CONST SEGMENT WORD PUBLIC 'CONST' 

CONST ENDS 

_BSS SEGMENT WORD PUBLIC 'BSS' 

1Q _BSS ENDS 

D6R0UP GROUP CONST, _BSS, J3ATA 

ASSUME CS: _TEXT , DsT DBROUP, SS: DBROUP, ESiOGROUP 

.TEXT SEGMENT 

PUBLIC .disable.*, .enaole i 

*~" — ..- 

15 _disable_i PRUC NEAR 

CL1 
RET 

_disable_i ENDP 
_enable_i PROC NEAR 

ST I 

RET 

_enabte_i ENDP 

20 

.TEXT ENDS 
END 



Page 1 
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DG.5CRIP.C Tuesday, October 18, 1*56 Page , 

/* Do a script -file 

4 

iCj copyngnt 1S8S Dymx, Inc. 
5 written bv: J . Wavne Scnneider 

date: 10 August 19SS 

This routine will work with both SP and 5P1 mam proarams. 

It processes the script file pointed to bv 'script' on oort •comV. 

btart time arguments are pointed to bv 'argv'. 

The integer length of the scriot file is in 'length'. 

io" 

#define PERFORMANC£_F£NC£ 5 

ftmclude "sp.h" 
^include "spjData.h" 
fcmclude tstnng. n> 
ftmcluoe <stdio.h> 
ft induce <bios.n> 

voia do_scnpt (conx, script , length, arav. input window, tran.e* 
mt comx: 
char *scnpt; 
long length; 
char *argv[ J ; 
cnar * input .window: 
struct t str ♦ trans; 

20 { 

int per t or mance_count ; 
mt t .tl : 

unsigned mt transliteration; 
unsigned char c; 
unsigned char *iD,*screnfl,*tio; 
long timer CI CO ; 
Char varClOHSCO; 
25 long loop.tm f tm,start_tm,trans^start_tm,trans_end.tm; 

^bios^timeofday(^TIME^GETCLOa<^start^tm) : /* mit timer*/ 

/* srand((int>start_tm) ; */ 
scrend = script + unt) length: 

id = scriot ; 
do { 

30 c = * (ip++> ; 



switch ic 

C 

case 1 



process '.com.::.* up++> ) 
creak : 



/* PROCESS */ 



case c : ... . 

35 sleepd?: 

com_breakicomx,l) ; 
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Paas 5 



case 3: 



case 4: 



sleepU) ; 

com_break(coffix,0:' ; 
sleep (1) ; 
break : 

m /♦ SYNCHRONIZE ♦/ 

wait_for_operator u : 

sleeoirand^norm' trans-/ rate ,i» « ; 
Dreak; 



'* ^AK.lNPUT.WINDOW . 

10 c lear_inout_winoowicomx> : 

Dreak : 



case 5 : 



, /< OUTPUT ft, 

whi ie ( <c=« Cxp*+i i != NULL*: 
t 



tc < i££:j soutcicGmx.c) ; 
else Dutvarg«.co««.c.var.arav) : 
15 ) 

break; 



case 6: 



hiM . ^ /« BEGIN_TIMED LOUP ♦/ 

.DiOS.timeo^day(^TIME_BETCLOCK.tlooD tm) : 
performance_count=0; 
break : 



20 Ca5G ?! . ■'« END _T I MED LOOP • / 

pertorraance_count++ ; 

^bios.timeo7day<_TINE_SETCLOCK,fctaj) ; 
Urn .» = (loop^tm * Global. timeout) » 

ip 

break; 

) 

*P ■ script + (ant>Mint *)ip; 

reschedule!): 

oreak; 

S: '« LOOK^FOR >/ 

tip = ip; 

while (tc=*(:o++)) != NULL) ; 
it istrstr «inout_winoow,txp) i 

30 i? 55 script + unUMint «Mo: 

i* toer^ormance^count '. PERFORMANCE ?LM"£' 
oer^ormance_checkCcomjO++ ; 

j 

else 

id += £: 
break ; 

ca c ° m * 
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35 



Page 



10 case lOs 



case 11: 



15 case 19: 



case 12: 



sieeocu: /* sync t0 clock ti 

while ttU 
V 

clear_input_windowicom:<) : ,* clear , e ., a „. r . 
sleeodi: ' " - ' " 

it trxjrsaayicaax)) /« C neck ior errors cr data #/ 

t 1 —* t * 

else 

ta — c 

3 

break: 



x / * REPORT » / 

trans->abort = report (comx.* (id++.m • 
break ; 



/♦ EXIT • * 

trans-jaoort - ao exit (cam;: 
break ; 



transliteration - trans-loo* count: 
trans _start_tm = 0; 
trans_end_im = trans—rate: 
break ; 



tm = tr*n- or« , '* r£0eat ^'^TRANSACTION */ 

tm _ tran=_ena_im - trans start tm: 

t = trans->rate - (mt)tmT 

20 l * (t } 0) 

sleep*, (t / £> + rand^ncrm(t,4)>; 

br^akl'*^^ 



case 13: 



checkpoint (comx, 0, " 



25 <trans_eno_tm - trans start t m ,, 

trans_end_tm) ; 
i*f transliteration) 

ii (•(— transliteration)) 
C 

id +» £; 
break : 

) 

10 s script + (mt/Mint nip: 
30 break; 



case 14: 



i*Wjataivar) == £0F> " " T - DAT * 

id - script + (int)t(int «no: 



else 

io += £; 
break : 



case 15: 



/*' T HlM= JTIME ♦/ 
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Tuesday, October is. r*£* 



10 



case 16: 



case 17: 



i 4 (glooal .think) 

sleep (rand_norm<QloDal .think ,<f< + -clonal .♦nin»- 
Dreak; **' " 

/* BEGIN TIMER */ 
_bios_t imeo-fdav ( JT 1 ME J3ETCLQCK . £t 1 1 mer [ « i p j j : 
ip++; 
break: 

/« check point ♦ 

tl = * (id++) ; 
t = * (ip++) 5 

_bios_t imeo-fdav (J IMEJSETCLOCK . *&tmj ; 
checkpoint <comx,t ,tm - timerCtl] .tm> ; 
break ; 



case IS: 



ip = script + iint)«iint *)ip: 
break ; 



/* 5DT0 */ 



15 



case £53: 
case £54: 
case 255: 



while'.* <ib++> ; : 
break : 



/* def i ^process _1d 

define~gp_id *7 
/« define jtrans _tyfe 



20 



De-fault: display 14 scrpt er H ); 
3 



25 



) 



check-out (J ; 

i + up ;= screna) 

trans-) abort = TRUE; 

3 while i '.trans-) abort ) : 



/* see H we musi give ud now */ 



30 



35 



void outvarg icomx.c ,var ♦argv* 
mt cooix: 

unsigned cnar c; 
cnar *argv[J; 
cnar var£iOKS03 ; 
C 

switcn ic) t 

case 131 : scuts \comy. ,argvL03 

case 141: souts icomx ,vart l 3 ) 

case 14E: sputs icomx ,var C£J ; 

case 14*: EDuts icom;: .var L33 ) 

case 144: SDuts var L43 ) 

case 145: souts icomx .var C53 ) 

case 146: sputs icomx,var£63) 

case 147: SDutstcomx,varI7J) 

case 14S: SDutsicomx,varCS3J 



) jbreak; 
;break: 
; break; 
?break; 
:break ; 
:oreak: 
?break; 
jbreak; 
; break; 
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case 14*: souts •.comx.varL'iiJi ;oreak; 
ae+au it : sDuts icomx . "NOMhTCH" ) ; 



10 
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iBET.SCR.C Wednesday, August 31, 19SS 

/* Read in the script file and generate pointers to the text 

(C> copyright 1933 Dynix, Inc. 
5 written Dy: J. Wayne Schneider 

date: 10 August 19SS 

argv - must point to the -filename to open 

script - is a pointer that we will set to the script file 

2"!Srfti 1S ^ oointers that »* set to the 'define op ids' 

op.idCOJ - is a pointer that we set to the 'transaction type' 

10 #include "sp.h" 
#include (stdio.h) 
#include <malloc.h> 

unsigned char *get_scr id t (argv, length, op id) 
unsigned char «argv; 
char *op_idC3; 
long * length; 

15 « 

FILE *stream; 

int f lag,numread; 
char tcCSOJ; 

unsigned cnar *mp, *scnpt; 

strcpy(tc,argv) ; 
strcatttc-.SCP") ; 
2 0 stream = f open(tc , M rb M ) ; 
if (stream == NULL) 
C 

DUtsC'Can't ooen the script file'"** 
exit (2) : ' 1 

) 

« length * f i lelength (f i leno(stream) ) ; 

if (('length == -ID !! (* length > 32767D) 

25 puts ("File size out of range!"); 

exit (3); 
) 

script = mal loc ( (int) (* length) ) ; 
if (script == NULL) 

( 

puts( u Not enouah memory for script 1 ")- 
exit (4) ; 
) 

numread = fread (script ,1 , (int) (length) .stream) : 
lfCnumread != (int) (* length) ) 
{ 

Duts<"Error readino script file'"); 

exit (5): 

} 

flip = script; 
" flag = TRUE; 



Page ) 
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do { 

switch (*mp) 
5 c 

Case H* 1 '* define process id */ 

case 254: mp++; /* deHne op id s/ 

op_idC*mp3 * mp + 1 ; 
while <* <mp++)} ; 
break ; 

case 255: mp++; /* transaction type */ 

op_idC03 * mp; 
10 while <*<mp++>) ; 

break; 

default: flag = FALSE; 
) 

) 

while(f lag) ; 
return script; 

15 J 
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Monoay, October 3, 

5129 



<C> copyright 3 9SS Dynix, Inc. 
written by: J. Wayne Schneider 
date: ES July 1 938 

These are the 1/0 routines that call the assembly level routines. 



»/ 

itinclude (stdio.h) 

^include "sen" 
tinclude "sp_data.h M 
^include *sp_ciaata .h' 

/* 



This routine will return a 1 if data is available or 0 otherwic e 
It also logs errors if they have occurred on the serial oort 



int r:<_reaay(comx) 
int comx; 
15 ( 

int 

l = rx_status<com>c> ; 
if u > 1) 

i 

char buffer : 

sprints (buff ,-rx %£d X2x" .comxH>17,i) ; 
disolaytbuff > ; 

20 3 

return i & l ; 

} 



^ This routine will cutout a single character to a serial oort. throttled 

25 

void soutc(comx,c) 
int comx; 
int c; 
C 

sleep (global. throttle; ; 
while'. »SDushclcomx,c) > 
rescheduled ; 



30 



Th l£ rouunt vail output a string to the specify Dort . thrcttted 



void souts(com;<,s) 
int com?:: 
35 char <s; 
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2 ,u Nondav, October 3, 1938 

i 

while i*s != -\0-'» 

sputc'.comx.* (£++) ; ; 

5 

/* 

^ Get a S1 ngU character from the input port. Wait until it comes. 



char sgetcicomx) 

int comx: 
{ 

10 int c: 

wnile ( cc = soul lc (com)) == -l) 

rescneauleu : 
return c; 



15 ^ Increment tne monitor buffer oointer in a circular -fash 

char *m_circvm> 
char +m: 
{ 

m++: 

if (m )= (mjjuff + m_buf f^sise) ) 
20 m ~ flL.buff: 

return m; 
) 



/* 



*/ 

25 



While there is room m the monitor buffer, get bvtes from rv buffer 
ana transfer them to the monitor buffer. ' 



void = f lusfucom?<> 
int com;:: 
( 

xnt c: 



while <m_buff_cnt < m_buff_size) 

V 

30 if i (c=5oullc(comx)> == -i) 

break ; « 
*m_buff_in = ichar) c; 
m_buff_in = m_circ(<njmff_in) ; 
m_buf f _cnt++; 



35 
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1 I0,C Monday, October 3, 19SS 

/* 

U E tLl he inDUt Wlnd ° W and SBnd ctiara cters to monitor if needed. 
^ H that is oone or not necessary, clear the ry. buffer. 

5 

void clear_input_window(corax> 
int comx; 
( 

while ( .'s.cleartcomx^onitorjsorttcomxJ)) 



10 



sflushicom*,; /B lfs . clear tpy „ ushing ^ 

3 



H we are oemg monitored, -Flush what we can and continue. 



voxd monitor (comx) 
inX com?;; 
15 ( 

ii '.monitor _portCcomx3) 
si lustv.comx) ; 

) 



Paoe 3 
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1 MKEDATA.C Tuesday, October IS, I*S8 PaQe 



/»*#*«« 
MakeData.c 
^ Make session ID file 



Make random timings data tiles tor testing reduction stuff 



Rholling Stone 

K. Brook Ricnan 

(C> Dymx. Inc. 

*«#***/ 

10 

fcinclude h ses_f ile.h" 
^include tstdio.h) 
ftmciuae < string .h; 
# include -stdiiD.h) 



Readint u ) 
15 int *i: 

{ 

char sC153; 

gets(s) ; 

*i = atoi is) ; 



20 



MafceTimeO 
C 



char fname[14D; 
FILE* f; 
TimingRec t; 

unsigned mt l -ntera.nopid.nrec.wall : 

orintf ("Making random timino data file\n">- 
Drintf ("Enter file name to create) ■) • ' 
gets(f name) ; 
25 («fname[0J~'\0') return; 

* = fopenHname/W) ; 

if l* - NULL) lorintfCNo can create file."); return;} 

print* l "number of records to create) ») • Rp a Hi«w^ * 
onntfrnumber of terminals) ■> ; SLliitc£S2- 
print* C'nuraoer of oo ids) ■) ; Readlnt ifenopid) ? ' 

30 wall « 0s 

tor n = i: n=nrec? i++) ( 

t.termno = rand ( ) fcnterm : 

t.opid = randOtfnopid; 

t. stopwatch = lrandt)y.40;43: 

wall t .stopwatch* (ranoOy.5) ; 

t.wallticks * wall; 

fwritetet, siseof (TiminoRec) , 1, f ) • 
35 } C(iXIOO)mO) print f <•'.«) ; 
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1 NAKED AT A. C Tuesday, October IS, l^SS 



Pao^ 



fclose(f) : 

) 

5 flakeSessionO 
( 

char tnameCNj; 
FILE* fj 
SessionlD s; 
int j; 

print f ("Making session ID file\n M >; 
10 orintf ("Enter ti le name to create (session . ID) > : 

gets (f name) ; . 

if if name[OJ=='\0') strcpy (fname/'session.ID") ; 
f = f open (f name. w wb") ; 

it (f NULL) {prmtfPNo can create file. 11 ): return:J 

strcpvis.machinename, "Tandem VLX") ; 
strcDV(s.memorysi2e, M lEI1B H ) ; 
^5 strcp\Ms.dtsksize k "3 7EOMB") ; 

strcoy^.databasesize/'eoo.OOO titles; 500,000 holdihos: £-0.000 oatt-cns"); 
strcDVis.date.'lg bep Q8 M ) : 
strcDVts.time.-l^sOO") ; 
s. comment t 03= '\0': 

printf ("number cf terminals used in session) ") : Readlnt (fas .ntsrminals) ; 
prints ("number ot trans types in session) ">: Read Int itts .ntranstype) : 
ior u=0; us.ntermmals; s.terminapC ; 

20 +or (j=0; j<s.ntranstype: { 

printf ("file name of trans type '/.d> gets(s .ti lenamsC j]) ; 

printf l" ejected trans rate) w ) ; Readlnt (ks.tr ansExpfcatelj ]) ; 

) 

fwritec£e=, siseof (SessionlD) , 1< +>\ 
fciosetf): 

) 

writeidCf ,code.iaval ,s) 
25 FILE «t: 

int code,iaval ; 
char *s; 

C 

foutc(code,f ) ; 

if (code != 255) foutc ( ldval ,f ) ; 
fputs(s,f> ; fputc('\0',f) ; 

) 

30 

MakeScr lot (» 

C 

char fname[14J ,sC503; 
FIlE* f: 
int nooid,i; 

print* ("haki no script f ile\n") ; 
• - printf ("Enter tile name to create) ") • 

" getsifname): 
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if (tnameC03=s-\0') return; 
+* = tODen(tname, l, wb ,, > ; 

it it « NULL) Cprint*("No can create file."), return;) 

pnnt-f( M transaction descriotion) ") ; getsis)- 
writeid<f. 255,0, s> : 1 

pnntf(»how many op ids) '•>; Readlnt (taooid) : 
tor i<«nopid; i++) { 

prints (" op Kd description) ".i); 

oetsts;; 1 

writeid(*,254,i |S ) ; 



10 



maim) 
( 



15 



*close(*> ; 



char cmd; 

print* t-&x„ o+ sessionID = w\nx„. . siseof iSessi^il.;.. 



cmd = • • • 

while icmd != • Q • ; r 

orintfC'riake: s(essionlD, t amino file =, = - omh , B „ 
cmd = touppeMoetcheOj : 9 ' a(SaemDl *° seriot , aiui 

print* <"\n") ; 
20 tend == 'S') MakeSessionO ; 

else it (cmd == 'T') MakeTimeO 5 
else if icmd == 'A'j MakeScript () ; 



25 



30 
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1 tn * 1 ' Wednesday, SeDtember 14, 1983 

^include tmalloc.h) 
maim) C 

int i,news; 

int sa,ho,sr; 
5 char *ns: 

news = ijnemavlO/32 - 2) I OxFFFE; 

-for (i=0:i<=3£;i++> C 
sa = stackavail () ; 
ho = _memavl () • 
sr = jnemmax ( ) ; 
10 n = = _nmalloc(new5) ; 

printt('"/,d.stkavl hi nemavl Xu memmax Ku newstk XxxnM.w.ho.M 

) 
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1 0BEY « C Monday. Octoder 3. ISS* 

Obey the Master commands and route aata from COM to the slave tastes. 

5 (C) coDyrignt Dynix, Inc. 

written by: J. Wayne Schneider 
date: 21 September 193S 

Once everything gets set up, this is where the slave processor soen«« 
a goad deal ot its time. This tast: responds to all data from <ne ma-er 
It also handles transmission of all packets to the master. 

1Q •"•""•"■•«™»«.«„„.„™ 

^include "sp.h" 

procedure prototyDes 
mt processjaefcet ivoidJ ; 

OBEY the MASTER 

Process data from the master and oass packets between tasks ano master. 

ooeyjuasterO 
( 

int alive = TRUE ; 
char far *packet: 

do ( 

25 oacket = rx jacket (MASTER ID) : /« u we re r«,wo rt „ 

if (packet) lf we received * racket vet »/ 

( 

alive = process jacket (packet) ; 
J free (packet) ; 

J 



Pace : 



30 



J while (alive) : 

) 



35 



/M «"""««"«««««f«M««a..„..„ 

oroceoure PRDCESS_PACK£T 
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Monday. October 3. 



int process-jacket () 



10 
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1 REDUCE. C Friday, September 16, 1*83 

1 Page 1 

/* REDUCE AN OP FILE FOR SYSTAT */ 

#include (stdio.h) * 
#inciude <stdlib.h) 
5 #include "ses -file-h" 

FILE * stream: 
FILE *out; 

main large, argv) 
int argc; 
char *aravL3; 

10 c 

mt n: 

TimmgRec t ; 

larac 13) 

C 

out s< "reduce in. til out.fil"): 
exit(l): 

15 > 

stream = *open(argv[ 13 t "rb") ; 
if istream == NULL) 
( 

putsC'can't open input file"): 

exit(l); 

} 

20 out » topen(argv££3 ,"w M ) ; 

while (! ieoi istream) > 
C 

n = freadtet f si 2 eo*<t) ,1, stream); 
ii in •= 1) 
break; 

^ ^^'"^^^ 

fctose(stream) ; 
ic lose (out) ; 
) 
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^ SLAVt.c luesoav. DctoDer IS. 19SS 

' ' "*«J 

Siave " j hls 15 the ^ave task that is started tor each port. 

It must establish communication with the serial Dort and 
3 prepare to process a script on command. Contained herpin 

are all ot the reporting routines called dv oo_scriot. 

iC) copyright 198S Dymx. Inc. 

written by: J. Wayne Schneider 
date: £1 September lSBt; 

10 

/* ftdetine DEBUG *./ 

tfmclude vmalloc.h) 
tfinciude istoio.n) 

-ftmcluoe "sp.n" 

frincluae " \rhobot \sp_data .h" 

fcincluae "sp_gdata.h~ 

tincluae " \rhobot \serial .h" 

procedure prototypes 

void prepare^Dort unt) : 
?n struct s - DacJce t *wait_tor ^packet tint) ; 
*U void oo^command unt , struct s ^packet t>: 

slave procedure 

void slaveuasfc_ia) 
int task ia: 
25 C 

struct s_packet *rx; 

prepare_port<tas»:_id>; /. prepare our com port */ 

ior J*? 1 /* do -forever */ 

rx = wa: t_for_packet (task id) 5 
30 *ifdef DEBUG 

ormtf '."task >;a doing packet \n" , task id); 

fcenait 

do_commana '.task ia,rx>; 
) 

) 

35 

procedure LC^COMMANl 1 



SUBSTITUTE SHEET 



WO 90/10269 



PCI7US90/01026 



-114- 



/* resoDtid to the command */ 
/>■ pass data througn to host «/ 



1 SLAVE. C -r 

Tuesday, October IS, 

Do the comaiana that is specif tea by the oacket. 

void do_conwriana(tas»:_id.rx) 
int tasked; 
struct s_packet *rx: 
C 

int coax = tasK_id + OdO; 
char bu-frerLiOJ? 

i0 switch i rx-; packet CCffDJ) 

C 

case PASS: 
{ 

while <pass_thru(task id, com*)) 

reschedules) ; 
Dreaic ; 
3 

15 case I TEST: ,« ^ 

t - '* °o an internal port test */ 

rx-)Bacfc«CMISJ t = -OrfM, „ „ ot <=un0 „ 

s t se 

rx-> packet CDATAJ != 0x08 j /« , 0 und •/ 
20 l*t*T X trX - >PaCkettSRC3 •tMkJd.IlEST .=^(r,-, aacKelCDATA . 
) 

case EFEST: M 

j /* do an external oort test */ 

if UooD_test_oorticomx>) estec *' 

rx-;oackeUDATAJ fc= *0x0S; 

else 

25 rx->Dac*:et CDATAJ J= 0x06; 

) 

case^_SC. n quit thi5 orogPam entlrely 

ever = FALSE; 
break ; 

3 

30 case ENG: , . . . . 

, /* identity ourselves to master > 

buffer CO j = number ofjorts; 

strncpvifeDutter[i]7sionature,S> ; 

txj>acket irx-> packet CSRM , t ask.ad .ENB . 10 f bu«er ) ; 

) 

ae+aui t : 
35 break: 

) 



Page 
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1 SUAVE .C Tuesday , October IS, 1983 

y >* release packet memory ♦ / 

orocedure WAIT_FOR_PACKET 

Very simoiv, wait for the flag that says we have somethino m our 
packet buffer. 

10 struct s jacket *wait_for jacket (task id) 
int task id j 
C 

struct e jacket «rx: 

while ( (rx = rxjacieet (task.ia) > == NULL) 

reschedule!) ; 
return rx; 

15 ) 

procedure PREPARE.PORT 

Vest the com port to make sure it :s -functioning. 
20 AliOCate tns receiVS D'J+ + er and program the uart. 

void prepare jort ltask_xd/ 
int task id; 
C 

int i ; 

cnar far *rxjuHer; 
25 int corny. = task_id + 020; 

for (i=0; x<8 try 5everal times tQ te5t %/ 

if (test jort (comxcn 
reschedule u ; 

else 

{ 

gooojortCtask.xaJ = TRUE; 
break? 
j 



Pace 



30 



rxJ)u«er*_*«alloc<RX_BUFFER_SIZE> ; /« allocate rx buffer * 
if irx buffer == NULL) 
( 

aisplay( M malloc") ; 
exi t u ; ; 

35 senal_ir.it <com.;. /* configure com port ♦/ 
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1 SLAVE. C Tuesday, October IS; 



%00, 
_8_DATA, 
Dik!KTS:0UT2. 
Bawl . 

rx_ou**er ,F:X_bUFF£ft__bIZh,ISNORE_MULL» : 

senai_init_ir,terruct vcomx.O) : 
) 



10 /» Terminal routines here replace communication to master */ 

void process i comx. numb ) 
mt comx, numb; 
£ 

comx -= 020; 

3 

15 mt report icomx, numb) 
mi comx, numo: 
C 

char c: 

comx -= 050; 
i-M numb == £) 
£ 

20 c - 'A': /« toupper(<char) jnos Jceybrd ( KEYBRD READ* ) : ♦ 

It IC as 'ft'j " ■ 

( 

return TRUE : 
; 

return FALSE; - 
3 

25 void cnecK_point icomx, op_id f op_time $ waU time) 
mt comx. op_id; 
long opjtime, walljtime; 

mt port; 



30 



35 



port = comx - 0£0; 
) 

mt aet_aataivar; 

cnar varElOHSOl; 
{ 

mt 15 
char *oack: 

tor :i do;!^) 
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2 SLAVE. C Tuesday, October IS, 19SS 

if* (back — NULL) return EOF: 

it tstrcmpivarti V'END") == 0) return EOF; 

l-f (strcmp ivarCi J . uu ) o) break: 

3 

5 return NULL; 
} 

int wait for ooeratort? 
{ 
) 

int Oo_exit (comx) 
10 int comx: 
( 

comx -= 050: 
return TRUE; 
) 

/***««*»#*«* oroceaure Dassjthru 

^5 Da5S_tnru'.task_iC«comx) 
int task id, comx; 
t 

int l, *Mao; 
cnar ou*+erL20D: 
struct sj>acket *rx; 

i = rx_statusicomx) ; /* check the host for oaia */ 

if (i i dk) 
20 ( 

tor li=0:i (20;i++? 

it < (DuffertU = spuUctcomx); == EOF ) 
Dreak ; 

tx_pac»:et >.O.tasl: id. PASS. i .buffer) : 
) 

if ( irx = rx_packet (task id)) != NULL) 
25 C 

flag = TRUE; 

switch Irx-J packet LCMD]) 
C 

case PASS: 

for u=0;i <rx->packetCLEN3-4:i>+> 

whi le ( I spushc (comx .rx-.» packet CDA1 A+i D > ) 
reschedule!) ; 

30 break: 
case "PASS: 

flag = FttLSE : 
break; 

case PASS .BREAK: ,* pa5 s a break to the host 

sleepti) : 

com_break (comx , 1 j : 
sleep (1): 

coffl_break(comx,0; ; 
35 sleepti): 
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Tuesday, CctoDsr IS, 



Pag = i 



break : 

) 

_f+reeirx) : 
return -flaa; 

) 

return TRUE; 
) 



10 



15 
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^ SLEEP. C Friday, September it., 1988 

/* Steep -for M n <4 clock ticks. Use sleep (1) to svnc with the clock 
betore beginning the actual timina. A sleep(O) does nothing. 
We always enable interrupts to oegin. 

5 */ 

#include (bios.h) 

void sleeD(n) 

unsigned int n; 
{ 

long trri,new_tm; 

10 

enable_i () ; 
( 

_bios_t i meo* day (JT I ME GETCLOCK ,ktm) ; 
do C 

reschedule*) ; 

_bios_timeofday( TIME GET CLOCKS new tro) ; 
) 

15 while <new_tm ( (tm + n)); 

) 



20 
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1 SPJUATA.C 



Tuesday, October IS, 1988 



Page l 



10 



/* uiobal Data definitions for SP 

(C) ccpvrxght 1933 Dyni*, Inc. 
written, dv: 3 . Wayne Schneider 
aate: £9 July 1*33 

*/ 

^include M \^hobot\sp_aata.h , ■ 

int performance_check[0&03 : 

int monitor_port[0603 ; 

char m_buff Cm_buff_si2e3 : 
int m_butf_cnt s 0; 
char *m_buff_m = m_buff : 
char *mJ>uff_out = mjmff ; 



^5 long Gav_time: 

cnar * co_i a jnsgi :;♦».• J ; 

cnar *croce5s_ic_mscL5C0 ; 

char statusjnsoi43ti5J = ( 

("Success') , 
("Failure' 1 ), 
("Timeout "). 
20 ("End of data") 



struct t_str trans: 
struct g_str glooai = C 



40. ieoo, 4 



25 



unsigned stack_size: 
char *signature = "\0 - ; 



/* £ second think time *.l 
/« 1 minute time out */ 
/* 50 worn tyoe rate «/ 



/* -front panel display «/ 



30 
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1 SPJ3DATA.C Tuesday, Octooer i£, 

/* SF cioDal data declarations 

(C) ccDvright i^rSS Dynix, inc. 
written Dy: i, Wavne Schneider 
5 date: i September 1988 

*/ 

ftmclude tstdio.h) 

fincluae »tasK.h" 
#include "so aaata.h" 

10 

int goooj)ortt3S3; 

int *curtcb; 

FILE •sessile; 
FILE *err_+ile; 

^5 int nuiriDer_Df_ports = S£: 

struct s_tcb tcD[333; 

cnar ty_answerC3£3 : 

l nt ever ; 

20 
25 
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1 SP - SETUP - C Friday, Septemper lfc, 193s 

'* ^ rial P ° rt Setup must looH ior aU 33 P° r t5 5 initialize all 
*o ports, and allocate the buffers tor all 33 ports. We do our 
bes to validate the functionality of the ports. Any port that 
tails, will be ignored later. (Except COMl . If it fails, we 
5 beep the beeper in desperation.) 

(C) copyright 1988 Dynix, Inc. 
written by: J. Wayne Schneider 
date: 1 September 193S 



Pace l 



*/ 



#include "sp.h" 
10 fcinclude "sp^odata-h 11 
^include "seriaLo* 
#include (baos.h) 

/« 

^ Make a cheerful tune on the beeper 

chirrup tuneO 
15 C 

sleepU) ; 
utsDlcr(bOO) s 
sleep <£) • 
utspkr (SoO) : 
sleep <£j ; 
utspkr (900) ; 
sleepi£); 
utspkr (O; : 
) 



20 



/« 

Hake a sad tune on the beeper to indicate failure 

sad_tune() 

( 

utspkr (200); 
25 sleep (10): 

utspkr (100) ; 
sleep(lO) ; 
utspkr (0) ; 
3 



30 void serial_port_setup(n) 
int n: 

( 

int i: 

for ( i = o ; i < OeO+n ; i++ ) 
{ 



35 



good_portti3 = test_port <i) ; 
3 
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1 SP_SETUP.C Friday, September 16, 1933 Page £ 

l-f lgood_porttl J> 
chirrup _tune() ; 

else 

5 sad_tune() 5 

) 



10 



15 



20 



25 



30 



35 



SUBSTITUTE SHEET 



WO 90/10269 PCT/US90/01026 

-124- 



1 RND.C Wednesday, August 31, 1988 Page 1 

/* Rand_norm( mod , type); 

Senerate a random number oi 'type' */. mod+i; * 

14 type bb i W e get a uniform distribution; 
5 H tyoe ~ 4 we get a normal distrubtion (bell curve); * 

One is added to the 'mod' so the value returned is 0 l- r <= mod. 

<C) copyright 1988 Dynix, Inc. 
written by: J. Wayne Schneider 
date: E9 August 1988 

*/ 

10 

#include "sp.h" 
^include (stdlib.h) 

int rand_norm (mod , type) 
int mod; 
int type; 
( 

15 int i; 

long sum-0; 

-for (i-0;i<type;i++) 

sum +* randO '/. (mod + 1); 
return sum/ type; 
) 
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10 



15 APPENDIX D 

Title: Task Scheduler and Serial Driver 
Code Modules: TASK. ASM and SERIAL. ASM 
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1 TASK. ASM 



Fnoay, September 16, 1988 



Page 1 



TITLE TASX.SCHEDULER for MSC 
.MODEL COMPACT 

it) copyright 19SS Dynix, Inc. 



date: 

written by: 



June 30, 1SSS 

J. Wayne Schneider 



10 



next 

nexts 

spsave 

sssave 

s I save 

status 



15 



temp 



EXTRN 
EXTRN 

EQU 
equ 
EQU 
EQU 
EQU 
EQU 

.DATA 
dw 

.CODE 



STKHQGrWORD 
_cur tcb: DWORD 

0 

s 

4 

6 
S 
10 



;tcb array indexes 



? temporary storage 



20 



25 



PUBLIC .first ..task, .create.tasfc, .reschedule 
FIRST JTASKUcb_arrayj>tr) 

This routine must be called by the main routine to create a 
TC* for the main routine. Nothing else works until thi- has 
been executed. 

The tcb pointer is an array of four pointers iwords) . 
.FIRST _TASK PROC NEAR 



30 



35 



push 
mov 

mov 

mov 

mov 

or 

.ins 

mov 
mov 
mov 
mov 
mov 
mov 
mov 
mov 



bp 

bp,sp 

dx,5EG .cur tcb 
es,dx 

ax,word otr es:_curtcb ;Oon't allow it to haooen twi-e 
ax .word otr es:_curtcb +2 
ft done 

dx,Cbp+£3 

b «^bp+43 ;6 et the tcb pointer 

word ptr es:_curtcb .ox S An* imtilire 

word ptr es:_curtcb +2, ox 

es.dx 

ax,stkhqq 

es:slsave£ox3 ,ax 

es:nextCbx3,bx -Link to self 
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Friday, September lfc, 1988 



mov 
mov 
mov 



5 -ft done: mov 



pop 
ret 



esrnextsCbx], ax- 
es rsssaveCbx] ,ss 
word ptr esistatusCbxJ ,0 

sp,bp 
Dp 



ENDP 



10 



15 



.FIRSTJTASK 

CREATEJTASKU^arrayjtr, stack_ptr, stack_size , f unci ion j)tr , task. 

Create a new task using a new tcb, stack, and the sDecified 
function as the starting point. 

The long stack pointer must be both segment and of fset . 
No arguments can be passed to the function. 

The task_id is an integer used to identify the task to itself. 



20 



25 



30 



35 



.TASK 


PROC NEAR 




push 


bp 




mov 


bo ,so 




push 


si 




DUSh 


di 




mov 


dx,SEG _curtcb 




mov 


es.dx 




mov 


bx,word otr es:_curtcb 




mov 


ax, word ptr es:_curtcb 




mov 


ax,bx 




or 


ax,dx 






ctdone 




mov 


es.dx 




mov 


ax,Cbp+4] 


;6et 


mov 


cx t CbD+£0 


mov 


si ,es:nextCbxJ 




mov 


di ,es:nextsLbx3 




mov 


es:nexUbx3,ax 




mov 


es:nextsEbx3 ,cx 




mov 


bx,ax 




mov 


es,cx ' 




mov 


es :nextCbx3 ,si 




mov 


estnextsLbxJ ,di 




mov 


ax.ss 


;6et 


mov 


es:sssaveLbx3,ax 




mov 


cx,Cbp+33 




mov 


es:slsaveLbx3 ,cx 




mov 


word ptr es :status£bx3 , 


0 


mov 


dx,ss 


:Sav< 



;Make sure first_task has run 



;6et tcb pointer & link it in 



;6et stack pointers 



;Clear the status 
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TASK.ASM 



Friday, September lb. 



Page 3 



10 



15 





mov 


di,sp 




mov 


si ,Cbo+14] 




mov 


temp ,si 




mov 


Ei,Cbp+lE3 




_ .a j 
add 


cx,Lbp+KO 




mov 


ss ,ax 




mov 


sp.cx 




push 


t onvn 

L CllljJ 




push 


offset TASK_EXIT 




push 


si 




push 


cx 




mov 


es:spsaveCbx],sp 




mov 


S5,dX 




mov 


sp,di 


ctdone: 


pop 


di 




pop 


si 




mov 


SP«DD 




poo 


bp 




ret 




.CREATE. 


.TASK 


ENDP 



;Get the task_id numoer 

:6et -function address 
:set sp at end of area 



;Pass his task_id 
zLoad his stack 



;Set his stack pointer 
;Restore our stack pointer 



20 



TASK.EXJT is called whenever any task except mam, executes off 

the end of the code, meaning, it does a RET . 
When that occurs, we remove themfrom the tcb ci\ain. 



TASK_EXIT PROC 



NEAR 



25 



tel : 



30 



35 



teB: 



TASKjalT ENDP 



mov 


ax,SEG _curtcb 


mov 


es,dx 


mov 


fax, word ptr es:_curtcb 


mov 


ax,bx 


mov 


dx,word ptr es:_curtcb+E 


mov 


cx,dx 


mov 


es,dx 


mov 


si ,es rnexttbx] 


mov 


di,es:nextsCbx] 


mov 


word ptr es:statusCbxD .S0h 


mov 


dx,es:nextsCbx] 


mov 


bx,es:nexUbx3 


mov 


es,dx 


cmo 


ax,es;next£bx3 


.me 


tel 


cmo 


cx,es :nextslDxJ 


*ine 


tel 


mov 


es:nextCbx3 ,si 


mov 


es:nextsLbx3 ,di 


onto 


short next_usr 



;Get current TCB otr 



;6et link from TCB that's done 

;Flag it as done 
;Get next usr TCB otr 

; and see if we match it 



;Store the new link 
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T ASK. ASM 



Friday, September 16., 19S8 



Paae 4 



RESCHEDULE () 

This routine is called any time a task' reschedule is desired. 
It should most likely be called any time a task finds itsel* 
waiting for any reason. This buddy system of task schedulino 
works well if all tasks comply. y 



10 



15 



.RESCHEDULE 


PROC NEAR 


push 


DP 


mov 


DP,SP 


mov 


dx,SEG _curtcb 


mov 


es,dx 


mov 


Dx.word ptr es:_curtcb 


mov 


dx,word ptr es:_curtcb +S 


mov 


ax,bx 


or 


ax,dx 


J2 


rdone 


mov 


es t dx 


mov 


es:spsave r bx] ,bp 



20 



next_usr: 

mov 
mov 
mov 
mov 
mov 
mov 
mov 
mov 
mov 
mov 
mov 
mov 
mov 

rdone : mov 
pop 
ret 



3q ^RESCHEDULE 

JTEXT ENDS 
END 



25 



cx,es:nextsCbx3 
ax,es:nextCbxO 
dx,SEG _curtcb 
es,dx 

word otr es:_curtcb 
word ptr esilcurtcb 
es,cx 
bx,ax 

ax^srsisaveCbxJ 

stkhqo ,ax 

bp ,es:spsave£bx3 

ax,es:sssave[bx3 

ss ,ax 

sp,bp 
bp 



ENDP 



tSave current user SP 
;««* entrv -from TASK_EXIT 
?6et next usr TCB 



,ax 
+S,cx 



;make him current 

;Load his stack limit 
; and his stack 



35 
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1 SERIAL. ASM 



Tuesday, October IS, i'teS 



TITLE SERIAL SERVICE 
.MODEL COMPACT ,C 



10 



25 



(C) copyright Dynix Inc. 

written by: J. wayne Schneider 

The routines contained in this module are tor serial sort 1/2 



: interrupt control port 
interrupt mask oort 



:Data register 

tlnterrupt enable register 

;Interrupt identification register 

?Line control register 

:f1odem control register 

:Lme status register 

;Modem status reaister 

;PCSS scratch register 

;Least significant divisor 

;Most significant divisor 

transmit Holding Register Emptv 
:Rx data available mterupt 

;Buffer control bits 



576.00 , 38400 , gftwO , £3040 , 1 9£0O , i 44 W , i £3 , X , , x ^ , 
, 4800 , £400 . 1 £00 , 600 , 300 





mcluoe D0S_£I0S.lNC 






INTCNTL 


equ 


£0h 




I NT MASK 


eau 


£lh 




I NT2CNTL 


eau 


OAOh 




iNrSMASh. 


eau 


OAlh 


15 


DR- 


equ 


0 




IER 


eau 


1 




IIR 


equ 


£ 




LCR 


equ 


3 




MCR 


eau 


4 




LSR 


equ 


5 




MSR 


equ 


6 




SCR 


equ 


7 


20 


LSD 


equ 


0 




USD 


equ 


1 




THR£ 


equ 


£0h 




RDAI 


equ 


04h 




IGNORE JMULL 


eau 


Olh 



30 



35 



baud_taDle 


Ow 




Cw 


&aud_tabls 


.length 


divisor 


dw 




dw 


com_t o_aar 


dw 


comjt o_mt 


db 


int_to_com 


db 


buff stable 


dd 


vect_save 


dd 


vect_new 


dd 




do 




dd 




oa 




ad 




do 



3, 4. 5. 
IS, £4, 43, 96, 192,384 



S. 



!«"• 



0000 .3f 8h .SfSh .3e3h ,£e£ih ,£f Oh ,2e0h ,3e0h 
fi £l ^ 5, 7, 9, 0, 
2 s 1« 3, 0* 



0, 4, 
0. 0. 



5, 



0 

4, 



0. 



40 dup i0) 
10 duo (0; 

0 

o 

FAR PTR ser_intS 
FAR PTR ser_inti 
FAR PTR ser_mt4 
FAR PTR ser~mt5 



: St or age for vectors 0-'? 
; Vectors for mt 0-**» 
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1 st.RiHL.rtbM 



Tuesday, QctoDer 18. l*fc'd 



f-'ace i 



10 





dd 


0 




dd 


FAR 




dd 


0 




dd 


FAR 


buf f _base 


ECU 


0 


buf f _512e 


EQU 


2 


data_ptr 


EQU 


4 


view_ptr 


EQU 




buf f _status 


EQU 


o 


buf f_control 


EBU 9 


buf f _header 


EQU 





displacements into a com buffer 



;This is one byte long 
;Control byte 
;Length of header 



.CODE 



15 



com_oreakicomx,n> Enables in*U or disables m=0) break; 
com_break 

;Get the oort address 



20 



com break 



PkuC 


comx: WORD, ntMORD 


DUSh 


comx 


call 


get_com_adr 


aod 


sd.c: 


add 


dx^LCR 


in 


at ,dx 


and 


a 1 ,2Fh 


cmo 


n.O 


je 


£F 


or 


al ,40h 


out 


dx,al 


st; 




ret 




ENDP 





25 



rx_statusicomx) Returns TRUE if a character is ready or errors. 

The TRUE value contains the status indicators. 



status 



30 



Sir: 



rx status 



PROC 

mov 

cal I 

mov 

cmo 

mov 

je 

mov 

or 
mov 
ret 
ENDP 



USES DI DS, comx; WORD 



bx .comx 

get_port_buff 

ax.aata_ptridi3 

ax,view_ptr£di] 

ax.O 

GF 

ax • 1 



al ,buff_statusCdi3 

BYTE PTR buff_statusLdiJ,0 



:Get the buffer address 
; into DltDX 



;Clear the old status 



35 



spul Ic <comx> Returns the next available character or OxFFFF .if none. 



CHDCTITHTr 0»rPT 
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1 SERIAL. ASM 
spul Ic 



10 



(*lf : 

spullc 



FKUL 


USES £1 DI D£. c 


mov 


bx,comx 


cal I 


get_part_bu«f* 


mov 


bx,view_ptrtdx3 


CffiD 


DX,oata_ptri;di3 


.)ne 


§F 


mov 


ax,0FFFFh 


ret 




mov 


si f bu«j>ase£di2 


mov 


ai .Cbx+si] 


SUD 


ah, ah 


mc 


bx 


cmp 


bx,butf sizeEdi] 


jl 


©F 


SUD 


bx,bx 


mov 


view^ptrtdi J ,o>: 


ret 




ENDF 





Tuesday, October IS, 19SS 



;Get the bu-f-fer address 
s into DI :DX 



;Return -1 if none 



15 



? This routine will output a single character to the COM D or* 
. H the port xs not ready. O(z) is returned, otherwise linr; . 

spusnc 



20 



25 



soushc 



PROC 


USES DI OS, comx ;WORD, char : WORD 


push 
call 


comx 

get_com_adr 


:Get the uart aadress 


add 


sp,£ 




aod 


dx,LSR 




xn 


al ,dx 




sub 


ah, ah 




and 


al,THRE 




aod 


6F 

dx t BR-LSR 


;Return tax lure 


mov 
out 


ax, char 
ox,al 


;Output tne character 


sub 
xnc 


ax, ax 
ax 


;Return success 


Stl 






ret 






ENDP 







30 : 



35 



This routine will test the com port for output bu^er ready. 

tx_status PROC comx:W0RD 

pu f? com '< ;Get the uart address 

call get_com_adr 

add sp ,2 

aod dx ,LSR 

in al.dx 
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1 SERIAL. ASM Tuesday, October IS, 



sti 

sub ah, ah 
and al.THRE 
ret 



5 

tx_status ENDP 



This routine will clear the input but-fer and reset the count. 
H the flan is set, we must check for empty before clear inc. 
; it it is not eniDtv, we return FALSE 

; ELSE we return TRUE. 
10 : 



s_clear 



15 



20 ** ; 



25 



PKC'C 


UbES Dl DS Eb, c 


mov 


bx .comx 


call 


Get Dort huff 


Cll 




test 


•4 1 an .flFFFPh 




©f 


mov 


ax.aata^ptrLaiJ 


cmo 


ax ? viewj)trCdi3 


je 


6F 


sti 




SUD 


ax. ax 


ret 




mov 


cx.oata_ptrCdi3 


zc>:z 


gf 


mov 


ax,0 


mov 


data^ptrCdiD ,ax 


mov 


view_ptrtdi j ,ax 


mov 


di ,ouff JsaseCdi 3 


mov 


bx«ds 


mov 


es,bx 


rep 


stosb 


sti 




sub 


ax . ax 


inc 


ax 


ret 




ENDP 





:bet the buffer stuff 



;Disable interrupts thru this 
:See if the Uaa is set 



Return false if not emotv 

:Don't do a nothinc 
;Clear ihe count 



;Return true 



s_clear 
30 

; This routine returns a tar pointer in Da:h£ to tns sorts butter 

s .butter PftOC USES bi DS, comx ztiQRb 

mov fc.ccom:: 

call get_port _buf t 

- 5 mov dx.ds 

" mov ax,di 



-"age 4 
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Psge 5 



5 : 



; This routine sets the 8250 parameters only. 
senaWnit PROC 



10 



15 



20 



25 



30 



35 



push 

call 

add 

add 

sub 

out 

add 

mov 

out 

mov 

lea 

mov 

mov 

mov 

eld 

reone 

jns 

mov 



USES DI ES, comx:WDRIi f baud;WQRD,Une:WQRD,modem:WORD * 



comx 

oet_com_aor 
sp,d 
dx.IER 
al.al 
dx.al 

dx,LCR-IEft 
al ,SOh 
dx,al 

cx.baud_table_lenoth 

di, baud_table 

ax,DGR0UP 

es,ax 

a>:.baud 

scasw 



iDisable all internets tor now 



;Set tne baud rate tirst 



add 


dx.LSD-LCR 


out 


dx,al 


add 


ox.rtSD-LSD 


mov 


a I ,ah 


out 


dx.al 


add 


dx.LCR-riSD 


mov 


ax , I i ne 


out 


o V: • a I 


ado 


ax,MCR-LCR 


mov 


ax .moo em 


out 


dx,al 


add 


dx.LSR-MCR 


in 


al v dx 


add 


dx,DR-LSR 


in 


al.dx 


in 


al ,dx 


add 


dx,M3ft-DR 


in 


al ,dx 


add 


Gx JER-.1SR 


mov 


ax. interrupt 


out 


dx.al 


aod 


dx,IIR-IER 



;Set tne wore length, stop, etc 
;Set DTR, RTS, OUTEi. etc. 

\ Clear pending interrupts 



5 Enable the orooer interrupts 
; and clear 7x mt oendina 
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5 ; dummy 
; dummy 



10 



15 



20 



25 



* in 
add. 
in 
jmp 
and 
Jmp 
out 
sti 

mov 
cmp 
JQ 

shl 

sub 
shl 
les 
mov 
mov 

mov 

add 

mov 

mov 

sub 

dec 

mov 

mov 

mov 

xor 

mov 

mov 

mov 



mov 
inc 
rep 
ret 

seriai_init ENDP 



a I ,dx 

dx, SCR- I JR 

al,dx 

short 5F 

al.Q7h 

short 6F 

dx f al 



bx«conx 
bx,7 

bx,3 



iuesaay, October IS, 1*35 



: ana scratch latch 



;Enable interrupts again 

initialise data si 2e L oomters 
convert for »c« t o form » :u '' 
: with "u" = 0 



;Load otrs to DI:ES 



bx,10q 
di .but+er 



;buf* begins just oast the header 



bx,buff_header 
bx.di 

es:buf-f_oaseCdi],bx 
cx,o_sxze 

ex. subheader , Nake room +or hea£Jer 

S,Du«ji»„Cd,l,ex * anB — 
ax, control . StDre t „ CORtrcl b 

es:bu+f_controltdiJ,al 

esidLptrCdU.ax ^'^ ^ ^ k — "»*«■• 

es:view_otr[di].ax 

es:butf_statusldi3,al 

oi.es:buH_base[di3 ;Now clear the whole buffer 
stosb 



Page 



30 



Cm m»Der c a „ also b. 10, 'or CON , 80,T coi S 
Th. jurt » lU jM,,,. lnterruot5 1( i J 



serial _i nit ^interrupt 



2*. n!i SD1 ' co - sw0R0 - — ^ 



35 



mov 
cmp 



:Usino comx ae» 
:Cons'ert to*-!* w rv.' 



*o tor/r. M c " 
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Page 7 



10 



15 



20 



25 



Lie: 



30 



jle 
shr 
and 
jnz 
J nip 

mov 
cbw 
mov 
snl 

mov 
ado 
cmo 
ale 
add 
mov 
push 

test 

32 

mov 

mov 

mov 

or 

mov 

jz 

mov 

DOS 

mov 

mov 

mov 

or 

mov 

jnz 

DOS 
mov 
mov 

mov 

mov 
mov 
mov 
DOS 



; Don't do com 0 

:Set the storage oointer in D! 

; Select k setup each S£f* 
;rtdjust tor end set 



bx,3 

bx.07h 

©F 

sii_4 

al .com_to_mt CbxJ 
di .ax 

dx.INTMASK 
ax, 8 
ax, 15 
eF 

ax,60h 

dx.IlMTSMASK 

dx 



imask.OFFFFh 

dx,W0RD FTR vect_saveCdi] ;li isavec vector • = n> 

cx.WORD RTF: vect_save+aLdi] 

bx,cx 

DX.dX 

flag,bx ;save -flag 

511_3 

? S,CK :set the old vector bacfc 

bet_interruot_Vector :DS ;0/. 
short sii_2 

Ox, WORD PTR vect.savetdi] ;H (savec vec — «v 

cx,W0RD FTR vect_save+Etdi3 

bx.cx 

bx,dx 

flag.bx :save flaa 

511_£ 



:H (mask == TRUE ) 



Get _i nt er ruD t ^Vector 
WORD PTR vect_savetdiD ,bx 
bx,es 

WORD PTR vect_save+2Ldi3,bx 

ax, WORD PTR vect_newEdi3 
cx.WORD PTR vect^new+c'Ldi } 
ds,cx 

Se t _1 n t err uo t _Vec t or 



;Set the olo vector £S:Bx 
:and save it 



:£st the new vector 



;DS:DX 



sn.3s 



35 



and 
mov 
mov 
mov 
shl 
not 



ax.0?n 

cx,ax 

ax, i mask 

ah,0lh 

ax.cl 

ah 



:&et mt number back tor mask 
:£nable interrupts through 3259A 
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SEftlHL.HiM 



fflOV 


bl ,dl 


ODD 


ax 


in 


al.dx 


ana 


a I ,ah 


or 


a! ,bl 


out 


dx,al 


mov 


ax,f lag 


ret 





sn_4 : 

serial _init ..interrupt ENDP 



Tuesday, October IS, 1*S8 

:5ave the masl: and set the chip 



:Return -flag value 



10 



The snowing routines are NOT callable bv C 



| get .port Jmff Returns in DUOS tne adoress of the ports buffer 
; It expects the com/uart number in BX 



15 . get jjortjiuff PROC NEAR USES BX 



20 



cmp 

JQ 
shl 

sub 
shl 
Ids 
ret 



bx.7 

bx.3 

ox, 10a 
bx.£ 

ai ,Duff_tableCbx;[ 



get _port_ butt Enu* 



:Convert for "c" to form "cu" 
; with "u M * o 

iLoad ptrs to our t?ut+er 



: get_com_adr 



25 



Returns- in DX & AX tne address of Conn 

it expects the ■ n 4 ' in COrtX 

,l n M must be of form "c" or "cu" 

where c is com number ano u is uart number 



get_com_adr PROC comx:W0RD 



30 gcol: 



35 



mov 


bx,comx 


cmp 


bx,7 


JO 


gcpl 


shl 




DUSh 


bx 


shr 


bx,£ 


and 


bx.OOGEh 


mov 


dx , c om_t o_adr L ox 3 


poo 


ax 




short ocp2 


ana 


ax. 7 


add 


dx.SCR 


cli 




out 


ox.al 



; Convert for ** c to form "cu n 
: with "u" « o 

:Get tne COM port address 
:mdex into the table 

:Now set the scratch register 
;Return zero if failed 

; DISABLE INTERRUPTS so tney aor ' \ 
: cause conflicts witn scratch rec 
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Paae 9 



; dummy 



,imp 
add 

mov 
ret 



short &F 
dx t DR-SCR 
short gcoB 
ax,d.* 



i The caller must enable m.terruets 



get_com_adr ENDP 



S eria! mterruot service routines 



10 



ser_int£ 



15 



ser_intd 
ser mi 3 



20 



ser_int3 
ser_int4 



25 



ser_int4 
ser intS 



30 



ser_int5 
ser int7 



35 



ser_int7 
ser_mt9 



PR0C 

ousha 

mov 

cell 

oop a 

iret 

ENDP 

PRQC 

pusha 

mov 

call 

popa 

iret 

ENDP 

PR0C 

ousha 

mov 

call 

oopa 

iret 

ENDP 

PRQC 

ousha 

mov 

call 

popa 

iret 

ENDP 

PRQC 

ousha 

mov 

call 

ood a 

iret 

ENDP 

PR0C 
pusha 



FAR 

bx,£ 
ser_mt 



FA* 

bx,3 
ser int 



FAR 

bx,4 
ser int 



FAR 

bx f 5 
ser_int 



FAR 

bx,7 
ser int 



FAR 



;IR0 £ service -for COM 5 
:bave all oi the registers 
;Identify ourselves' 
;5ervice the interruDt 
; Rest ore ever body 
:hho give ud the onost 



:1RQ 3 service tcr COM t 



;1RQ 4 service tor COM 1 



;IRD 5 service tor COM 3 



;IRQ 7 service tor COM 4 



;IRQ 9 service is soecial 
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rage 10 



ser_int* 
ser int 



10 



15 



: dummy 



20 



mov 

call 

out 

DODcv 

iret 
ENDP 

PR0C 

PUSH 

mov 



mov 
shl 
mov 
shl 

add 

in 

and 

or 

cut 

jmp 

aaa 

in 

test 
jns 
add 
in 
J mo 



bx,S 

ser_int 

INISCNTL.al 



NEAR 
cs 

cx , ct'ATA 
ds .cx 



returns w/ £0h in a I 



:AU ports serial service 
preserve user s segmer.: reciste- 



Dl ant_to_comCbxJ 
bx.l 

d;c,com_to_adri:bx:} 
Dx.£ 

ax, SCR 
a I .dx 
Sii ,07h 
bl.al 
dx«al 
short Gf 

as,iifi-sCR 
al ,dx 
a I ,R0AI 
RDA5 

dx f MSR-llR 
a I ,dx 
srintt« 



;6et the com numoer 
:bet the com address 



;PCSS select 8250 thru scratch 



:Be sure it is rx int 
:This clears tx int 
;Handle r.< it/or status int 

;Clear tne modem status int 



RDA5: 
; dummy 



25 



30 



35 



acd 

omo 

in 
j mo 
mov 
out 

mov 

add 

in 

and 

SUD 

shl 

Ids 

mov 

or 

.ir 

or 
jnz 
test 
onz 



dx, OR- lift 
snort (*r 
a i ,ax 

snort e. c 

al ,'U' 

ox.al 
ah.al 
dx.LSR-DR 
al f ax 
al,lEh 

dx,10q 

OX.£ 

di tbu-ff _table[bx] 

fcx.ds 

bx.di 

snnt5 



: Point at ceta register 

:get the character 
; LUMMY 

; DUMMY tor. test 
; and the status 



;Loac o 4 .rs to our bu-fter 
:Checlc tor valid fcuffer 



: Check tor null 



an ,an 
srintl 

bYlE PTR butf _contro I Idi ] ,I6N0RE_NULl 

srintq 3 ignore li necessarv 
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ruesday , OctoDer i& f i^g 



snntl: 



10 



5rint£: 



srmt3: 
srintl : 
snntS: 



15 ser_int 

7E.U 



mov 


bx,data_ptrEdi3 


flIOV 


si .Du«ff_base£diD 


fllOY 


Cbx+£i2 ,ah 


inc 


OX 


cmp 


b>c,buf f_sizeCdiD 


Jl 


srantS 


sub 


bx,bx 


or 


a I «40h 


cmD 


bx,view_ptr£di3 


•ie 


srint3 


mov 


data_ptrldi3,b:* 


jmo 


short srintl 


or 


a I ,SOh 


or 


butf_5tatusCdi3,al 


mov 


al,20h 


out 


mtcntl ,al 


pop 


ds 


ret 




ENDP 




ENDS' 




END 





;get 'empty pointer 

;load character mtc buffer 
: increment pointer 
;snd of buffer? 



: and set wrap around flag 



: update oomter 

;Set the butfer overflow +la 

; and save the status 

; signal an end to interrupt 



20 



25 



30 



35 
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1 



5 



10 



15 

APPENDIX K 

Title: Summary Statistics 
Code Module: SS.C 



20 



25 



30 



35 
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Tuesday, DctoDer IS, 1333 

Page 1 



/***«*« 

ES.C 



Calculate summary statistics for rocn«,r« *- 

provide mean and d" , D £ d *** 
outout aqrn tii^ , D> cp ld and *v terminal 

output riSCIl files for graphics packages 



fthollmg Stone 

K. Brook Richan 

<C) 1*88 Dynix. Inc. 

10 ***«#*/ 

^include "ses_f i i e .h" 

^include "menuwmd .h" 

fcincluoe <staio.h> 

^include <math.h> 

^include <memory.h> 

#mclude istring.h) 



15 



20 



/***##** 6L0&HS ***»*«*/ 

SessionID session; 

/< -file name stuff */ 
char #ses df It = »* .ijj". 

char sesfnameCSCO, /* name o* session *ile, minus the extension 

J* resoonse time stats by op id */ 
#define Ma^Opid 556 
unsigned short n^opidCttaxOpid] ; 



- — * ■ w k »wii lo/.uy iuj ; 

unsigned short max.opidtMaxOpid] ,«liu»rdCto(0pi«! 

/« duration stats by terminal */ 
<« unsigned short n_termLMaxTerniinan : 

unsigned long sumx.termChaxTerminaU ,sumx2 termCMa-Tor m , na i i 
unsigned snort maK.termLnaxTerminaU i^SJSKSl J?"' 

/« transaction rate stats bv terminal </ 
unsigned short iast.walUnaxTermmaU : 



/* descnotive strings */ 
^define DescBufsize 3000 



unsigned cnar oescCDescfiufsiseJ 5 /* bu«er tor 6 rr,„t ••, 
-or, o^^ aU „ 0ff5et Z^^l^^^ ., 

/* User interface stuff */ 
MENU mainM: 
35 WINDOW infoW; 
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Face 2 



EN D 6L0BALS ****** 



*/ 



10 



xnt GetbessionO 

/* return l it successful «' 

C 

cnar fnameiSOj ,*fronw* to: 
FILE* +; 
int i • 

Get FileName< "Name oi Session file^ses a*lt,fname>; 
i+ unaraeL03=='\0' ) { 

Dialogrtsgr ~ no file found or chosen"): 
return(O) ; 

) 



15 



20 



/* back ud to end of path, if any */ 
for O^strlentfname)-! : 

i>=0 felt fnameCi3!=' :' ttk tnameCi] ' = '\\ 

i — ) : 1 
/« cooy -file name (minus the extension) */ 
from = +name+i+l : 
to = sestname; 

while ((#fr«.!-'\0') M C.fro.!-'.')! «to++ = ,<„»«. 
* to — ' \o : 

f = fopen(fname,"rb") ; 

if lt~NULL> ( Oialogtteg<« - error opening session -fii e »> . return^. , 
tread (^session, si 2 eof (SessionlD) A.i) i ' rsturn(u> 5 ) 

fclosetf ) ; 

return U.» : 



25 



30 



FILE* NakeOetFileO 
( 

cnar deinamelEOj ; 
FILE* f: 

strcDy(oet name, sesf name) ; 
strcat lOetname.".D£T") : 

|«rjteWindow(feinfoW,a,0,WHITE:iNTENSITY, "Details r°Dor* file--) . 
tor iteWindow(feinfoW,«,2l, WHITE, detnamei , *' " 

t = fopenidetname,"w") ; 
if (f ==NULL) ( 

DialogMsgC* — error creating details print fi^-i- 
return(NULu) ; ^ 

) 



35 



fpr^tf !f '"-~-~!:--! Vn " ,5SS ! i ° n ' nia = n inename) ; 

for!n!!!Mn e T Y ^^"""ss^'memorisise, , 

2r!I ' f 51265 ^n-.session.disksiie), 

for n ,J I' * " aSe f l2eS "'^""^ession.databases 2 e) ; 

forintftf ."bession date: '/.s^'" .session, date) • 
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fpnntfif," Session time: V,s\n M .session .time) ; 
•fpnnti \4 /'Comment : Ks\n" , session. comment) ; 
forint-f U."\n") ; 

5 -fprmt-f i*, u \n"); 

tprmt«f tt times are given in seconds\n u ) ; 

■forxntf «.«f \n"M 

tpnntf if ,"\n n ) ; 
retLirn(t) ; 



10 



15 



FILE* MakeSmyFileO 
C 

char smvnameC203; 
FILE* it 

strcDvlsmyname,ses«fname) ; 
s treat (smvname/ 1 .SMY") ; 

write«inaoN(&infoW f 5,0,WHITEIINTENSITY. -Summary report fil«-"> - 
WriteWinaowi£antow.5.£i .WHITE, smyname; ; 

4 = tooen(smvname, "w" ? ; 
li it=MULL) ( 

L'lalognsgt" — error creating summary print file' 1 ); 
return (NULL) ; 

) 

tprmtf(f, "Machine: XsNn" ^session.machinename) ; 

tpr intf \i , M SSSSSS=SSSSSSSSS=SSSSS55SSSS5SS8\n h ) • 

20 +pnntfi-f, "Session date: Vis\n" ♦ session. date) ; " 
4pnntf(-f /'Session time: , /;s\n , \session.t ime) : 
tprmtf i*,"Comment * */.s\n M , session. comment ) ; 
f print f ii , rt \n"; : 
fprintf (-f, M \n M ) ; 

tprinttl-f." times are aiven in seconds \r." ) : 

fpnntf ii , H \n rt ); 

fprintf ii % u \n u ) ; 

25 fprintfU," Pacing Throughput Response time\n") ; 



} 



^|"|^ , I ExpBCted Actual ^^ ted Actual Avera <?e Std Dev* Transactions") ; 
return (*) ; "~ Xn " ); 



30 



FILE* MakeSmydatFiteO 
C 

char smy name C 203; 
FILE* i: 

strcDvvsmyname.sesfname) ; 
s treat ismyname." .DAT") ; 

tor x t ewi naow i&intoN , 4 ,40 , WHITE : INTENSITY , ■ Summary *=C I i 
WnteWmoowli:intoW.4.bO.WHITE.smyname/ ; 

t - < ^ODen^sroyname < ll w l, ) ; 
35 i-f («f==NULL> ( 

OialogMsgt" ~ error creating summary ASCII tile"): 
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Page 4 

return (NULL) ; 

} 



returl(f^ " " lumn Ubels *' 



Set upF i l e ( f num , i jdo , f _dur dat , i _p D da t > 
mt -fnum; 

FILE **fjjp f #«-f curdat,*«f opoat : 
C "* 

cnar tnameC£OJ,s+nameC203; 
FILE *ii 

mt i ,opid, dtvpe, row, col ; 

st rep v ( +name ,sess i on . t i lename L i num3 / ; 
strcat i-fname," .OP") ; 
row = 7+(*num*/«10) ; col = (f num/10)»40: 
WnteWindow{fein^oW,row,col,WHITE,fname) ; 

strcpytsfname. session.* ilenameC-fnuml) : 
« strcat <sf name/*. SCP") ; 

* = *openistname,"rb") j 
H <<?==NULL) { 

^ DialogllsgC - error opening script file. Proceeding with r.c labels'-.. ; 
-else C 

tread (desc ,DescBu«fsize,l ,f ) : 
*close(f>; 

20 /*_set up indexes to op ia descriotion strings */ 

1 •* U • 

while <descCi3>K.£) C 
dtvpe = descli++]: 

(dtvpe == 255j odd = 0; 
else li (atvoe == 254) oDid = oescCi-^+3: 
else (ooia * -i; } /* ignore dtype == £53 */ 
ii <ooid>=0j dsscIdxCopidD = i: 
25 1 +r £ trlent&descCi * 

) 

**_op = topencfname/YD 11 ) ; 

strcpy itname. session. «filenameL*num]> 5 
strcat ii name," .DUR M > ; 

Wr itewindow (km-foW .row «col+l3 .WHITE ,-fname/ : 
«*_durdat = *ooen(<f name/'w") ; 
30 tprint+u^durdat.Uerm ? aur. W aU\n«>: /* column labels w 
strcDYifname, session. tilenameCfnum3> ; 
strcat ( tnams . " .DAT") : 

WnteWindow(fcinfoW,row 1 col+B6. WHITE, tname) ; 
**_oDoax = f open < f name," w M ) : 

^ *orint*iH.c Bfl «t 1 -tera f ooia,stap f i«U\n-)| /* column labels 
35 InitCountsi) 
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Page 

{ 

memset <n_oo id, '\0' ,si 2 eof in ooid)), 
memset tsumx.opid. '\o< . si2e0 f '.su*mx ooid) ) : 

* memse <max_opid, 'XO' .si 2 eo*imax aoia» t 
memset <min_ooid, '\xFF',si 2eo f < m I n _ opicl)) , 

"*; se ;; n - term - '^Ssiseoftn.term)) : 
memset (sumx_term , '\0' ,si 2 eof(sumx term)). 
mem Se Usumx £ .term,n0S Si2e0f(sumxS - t S ;. 
memse max.tern., '\0' ,si 2e0 f (max teVm» 
memset (min.term. -\xFF' .si.eoHmrn.term) ) : 

memset (sumx.tran , '\0' ,si 2B0 f < SU mx tran)). 
memset (SL.mx2.tran, ' VO < , SI2eo < ( SU n*£ tran )' • 
memset Jmax.tran, '\0',si 2 eo*( ffla * frlnO ' 
memset (min.tran, '\xFFSsi 2 eof (n^.tran), ; 

} memset tdescldx , '\0',si 2 eo4(oescldx)) ; 

bummar 12e <f_op ,*_durdat ,*_opdat) 

FILE M_op: 

FILE «*_durdat 5 

PILE »+_opdat ; 

C 

Timingftec t: 
short new_wal 1 s 
20 lono tranjime; 

tread ll«t .si seo+ (Timinoftec) .1.4 oo>: 
whi le ( !-feoHi_op)) t • • - • . 

n_opidtt .opxdJ-M-: 

sumx_opidCt.opid3 ■»= t. stopwatch 5 

if <t.ooid==0) C /« duration opid */ 
n_t ermt t . t ermno J • 
sumx_termCt.termno3 += t. stopwatch' 
sumx2_termtt .termnoj += Uono)t ctm Ma »p h ,n 
i i ft .stopwatch <min.termlt termn^r " a0n5) 1 - SISSM5 ^ I 

min.termtt.tBrmnoJ = t. stopwatch; 
H <t.stopwatch)max_term£t.termno3) ' 
30 max.termtt.termnoJ = t. stopwatch: 

else { ia " l _wai ut.termnoj = new_wall: 

lasMitur r eW ~ Wa ! 1 ' Ust - w anCt.tern,no3; 
sumx_trarut .t ermno 3 tran *ime- 
samx^tranCt.termno3 +« tra^time-tran time- 
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-*aoe 



) 

else 



• Crin ^^-«'"rdat.-' 54 u,y.u,, u vn«.t.ter ( nno.t.stop W atch,t.« a Utick S ) 5 



freadifct .sizeof (TinungRec) .1 .f_op} ; 



} 



ConiDut e_Nean_SD ( sx , sx2 ,n .mean , sd ) 
unsigned long sx.sxE: 
10 unsigned short n; 
oouole *mean.*so; 
( 

douole dsx,oss£, on, variance; 

ds>- = sx; 
QSxe = sx£; 
dn = n: 
2g *mean = asx/an; 

variance = (dsxS - I (osx*asx)/dnn /an: 
«sd = sort (variance) 5 

) 

Outout .Summary ( fa , f s , f sd , t r ansnum) 
FlLt „ detail pnnt Hle t/ 

hJL_ »ts; ,*. summary orint -file */ 
rlLE *fsd; /* summary ASCII -file «/ 
20 ,nt transnum; /. transaction type currently processing «/ 

I* NOTfc: In the following, it is mathematically souno to-divid. ♦ 

ano standard deviation by a constant ,„ ~hL ♦ V dlvl °e the mean 

we aivide the mean and s!dt by ? cksPerSec to iLn^T U " US - F ° r e * am ? is ' 

to seconds. However, if there b,™« I I change tne units from ticks 

25 *' 

int i; 

double mean, sd.dtickspersec .mean resp s t so reso s mean nam 
unsigned long sumx_tot f sumx2 totj • M J res P- B i«Mnj>ace_s,exp: 
unsigned snort n.tot ,max,min; 

ctickspersec = TicksPerSec; 

2q tprxntti«fa, "Transaction: ") ; 

if ioesddxEOj=0/ 

torint «f t-fd , M ================ - ========== _ == 2__.^ 

n - tDt = sumx_tot = sumxS^tot = 0: 
max = O; min = Ox-Hff; 

35 S^^:u!!;^" SU^Mna^V • RESP ° NSE 7IMES bY 0P«r«tioni\nvn-) : 

tprmtfud, nresp mm mean max ,td dev descriotionxn-, , 
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+pnnt-f (td, n 

if (n_opidCi]>0) ( 

5 n^o?^ 

sumx_tot += sum;;_opid£iJ ; 

sumx2_tot += sumx£_opio£i:'; 

i* (min_opid£i3(min) mm = min_opio£i J ; 

if (max_oDid£i3)max) max = max~opid£r" 

fDrintf (fd,'7,7hu ",n opid£i3) ; 

fprintf (fd,"X7.2W "7<double>min_opid£j3/dticksDersec) ■ 
'Pnntf(fd,-/,7.2lf • ,mean/dtick S p erS ec) : llCKSDersec) • 
10 tDrintf(fd.»K7.2if ■ , (double)max ooidEiLdticHsperseo ■ 

fonntftfd.-JC7.2lf - .sd/dtickspersec) ; 0tlcKSDe^sec, • 
if (dneldxEll-O) forintf (fd » xdi no description ..xn-.i-: 
} BlSB fpnntf(fd t - X«\n-,biMc[dMcIdx£i33)s 

if (n_tot>0) { 

Comoute_Mean_SD(sunx_tot .sumxa.tot ,n_tot .fcaun.Kd) : 
roean_resp_s = mean/dticKspersec ; 
15 sd_reso_s = sd/dticlcsDersec; 

fprintf <fd." \ n .. , . 

fDrintf (fd,"X7hu ",n tot) j 

fprmtfifd.-X7.eif "T'.doublejmin/dtickspersec) : 

fprintf(fd,'»/,7.£lf ".mean resp S ) ; 

f printf (fd , '"/.7.£lf . (double) «ax/dt ickspersec) • 

+printf (fd,"J«7.£W ".sd resp s> : 

fDrintf (fd." TOTALAn") :~ 

20 s) . fprlntt ' (fSd '" ,/ • S ' y •• eU •«• ^l ^"^--ion.fi le na ffl e£transn U ,3,»ean.re S p. s , S d r..p 
sd_resp_s = 0.0; 

25 f^i 1 n!Iu2 , « Vn \ nSUmmary ' transactl °" DURATIONS by terminal :Nnxn«> : 

for u=0; KrtaxTerminal? i++) ' r, " ) 5 

if (n_termCi3>0) { 

js;s:!2:.i?ii; • 

fprintf if d . »y.7.21f . (double; max_ter«£i j/ot ics-persec ■ • 
fprintf (fd.-K7.2lf %sd/dticksoer S ecJ : c - psrsBC - < 
forintf (fd,"Md\n",i) 5 

if tn_opidf 03H>) { 

^^!7^ a ^ 5 ^- OpidC03 - 5 " "f-°P^C03 ,n_opid£03 ^ean.^d, ; 
35 forintf tfo,'"/.7hu ",n opid£03) ; ' 

forintf (fd f «JC7.£lf tdouble>min_opidE03/dticKSDer 5ec .. ; 
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•fprintf <.*e."y.7.SH - .mean/dtickspersec) : 
tprxnt*Ua,"X7.2U -, (double; max.opidCOJ/dt icksp»rs»c> • 
rprimt(+dv/.7.SW " .sd/dticKspersec) : " 
tDrintf HFd.- TOTALAn") ; 

5 } 

n_tat = sumx_tot = sumx£_tot = 0; 
max = u; min = Or.H-fi; 

w!ni^!^H'l ,V^ \ nSlU,Mna^Y, tran5action PACING by terminal sWJs 

— ----- --!!_ V1J11 xer ^^y- 

for u=Q; i (MaxTerminal; i++) ~ vr;U); 

10 i* <n_termCi3)l) C 

Comput^ 

sumx_tot «•= sumx_tranCi3; 

sumx£_tot += sumx£jtranLi3$ 

i-f tnun_tranCi3(mm) min = min_tranCi3 ; 

if (max_tranLi3>max; max = max~tranLi3; 

*pnntf(fd/*X7hu » ,n_termCi3) f/« snow actual It of trans «/ 
15 tprmt*(td.-X7.aH - . (aouble)mm.tranii3/at ic»: SD er S o C , . 

tprintf (fa, M %7.2lf %mean/dt icksoersec) ; 
*Dnntf(fd. M !47.EW " . taoub ie>niax.tranCi3/at icicsDers«c ) • 
tpnntf(fd l -/;7.2lt - ,sd/dt ic*sperW-> 5 sDers.c. . 

rprintf (W/XMvn'.i) : 

) 

if in tat.'O) ( 



20 



25 else C 



Compute Jtean_SDlsumx_tot ,sumx£_tOt ,n_tot v fa»an,ted » ; 
mean_pace_s = mean/dt icfcspersec : 

Sprint* ltd," \ n «j . 

fprintf <fd. M, /.7hu " T n_ODidC03 ) ; 
fpnntf (fd,'"/.7.£lf 4, 7<aouble>min/dtickspersec> - 
fpnntf <fd, w K7 .EH '\mean_pace s) : ' 
torintf <fd,"X7.Elf \ (double) max/dt ickspersec) ; 
fprintf C« f "X7.EH %sd/dt ickspersec) : 
fprintf (fd, 11 T0TAL\n\n\n") 5 



mean_pace s = 0.0; 

} 



if (session. transExpftatettransnum3==0) exp = 0.0; 

else exp = (double;session.actdur/ (aouble) session. transExoFateCt-Ancm^T . 
fprintf <*.,-%7.Bl* X7.BU JC7.2W %7hu X7.6H S^SH IKS' 5 

idoubleJsession.transExpRateLtransnuml/dticksDersec.mean'oace s, 
30 , e> ^' n -- opidCCO ' mean - r esp.s,sd - .resp.s,&descCoescldxC033): * 

DoSessiono 

( 

FILE* f_oo; 
FILE* f_smy; 
FILE* f_smyaat; 
FILE* f.det; 
35 FILE* f_aurdat ; 
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Fl!_E* tjapdat: 
int j; 

ClearWindow(feinfoW) ; 
5 i+ '. i&etSessionO) return; 

«r i teWmdowteirrfoW ,0,0 .WHITE ! INTENSITY , "Machin* ■ - 1 
Wr i tewindow ntoW ,1 ,0 , WHITE ! INTENSITY , - Dat* ' - 
Wr i teWindON ( bi nf cut .£ , 0 , WHITE ! INTENSITY , • Time • * • 
writelv^DN^intow.O.^WHITE.session.machin^aii'. 
jrx eWinoo^fein+ow.l^.WHITE.session.oafe?? 
W^teWmdowtfeantoW.g^.WHITE.seBsicn.txae) 



20 



Page 9 



10 

■f^smy = hafceS/nyFilet) : 
i* i+_smy==NULU return; 
■f_det = HakefietFileO : 

i* H det«NULL> ( ^closei^smy) ; return; ) 
Omydat = MakeSmydatFi leP • 

*0* V dat«NULU C tclos^f.smv); tc lose^det) 5 return: ) 
„ j( »r,,.„ 1 «o., i , l „ fM . 6 . C». INTENSITY JUNDERLINE • "Timings , rra « llcn . 0o „, Um .. 

? ^ ^teOhndom^in^ 



rsnsac tiers Doeraiicns" 



tor (i=n;»; l (session. ntranstype; i++) { 
! nit Count s () : 



SBtupFilB(i f M.op f M -- durdat,W opdat); 

} Dialog«so(" - error opening timings file. No stats computed.") , 
else ( 

Summarize<*_oo,f_durdat ,4 opdat) : 
tclose(«f_op) : 

+close'^_duroat> ; 
tc lose (t^opdat) : 

25 } fctout - SufllBar v^ Jet,o»y,0«ydat ,n ; 



*fclose(-f_smy) : 
fcloseit_smydat) ; 
{close it _det) : 



30 ; 



nsain( j 



35 



char cad; 

int cur jj« .curjrew.cwr.col ,cur_nigh ,cur_l 0Wi 

lni tNenuwinc : 

scpclriij ;* clear screen «/ 

/* save state oi cursor ♦ / - 

cur_of* = sccurst(^ur^ro W ^cur.col^cur^igh^cur^!ow;; 
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riaKenenui&mainrU 

"ruerLoad a session ID tile" 
"Suit", 

KSSKif' - Su *' arv F >" «»—»« -.7.1,, • 

cmd = ' • ; 

Eusoiavhenut&fliainM) : 
whileicmd != 'Q ') { 

cmd = 6etMenu(kmainh) : 
10 lcmd=='F') ( 

RemoveHenu<kmainrl) : 
DoSessionO; 
Displayrienu<&mainM) : 

) 

3 

/* restore cursor */ 
15 scpclrO; /* clear screen */ 
sccurset icur_row,cur col); 

sc P? c ^^ur.o^.cur^i5h,cur_to Wf CuR.N0_AtguST> : 



20 



25 



30 



35 
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Pace l 

/*«***« 

SmrvStat.c 

5 Calculate summary statistics tor response times: 

Provide mean and std.osv. py op id ana by terminal 

find ling stone 

brool: Rich an 
(C) 1*38 Dynix, Inc. 

»*»**)(/ 

10 

^include "ses_f l le.h" 

Bincluoe tstaio.h; 

^include iraath.hj 

tfincluoe tmemory.n) 

^include '.string. h) 



15 GLOBUS »♦#..#«/ 

SessionlH session; 

'* resDonse time stats bv op id */ 

ttdetine MaxQoid 5=t> 

unsigned snort n_ot5idCMaxupid3 : 

unsigned long su^.opidCMaxOpid J ,sumx£ opidtMa^id 
20 unsigned snort «ax_opidCHax0oid3 f .i n _oordC M axOpiS) ' 
/* duration stats by terminal */ 
unsigned short n_termlttaxTernunan ; 

un™^ '° n9 ( Bumx - termCMa xTerminan,su«xS ter mCM axTo rminaU . 
unsigned short max.termLMaxTerminaU ...n.trtfitaWS^ 1, 

i* transaction rate stats by terminal «/ 
25 unsigned short iast_walUhax7erminaU : 

unsigned long sumx_tranCMaxTerminaU ,sumxS tran[Ma-TorT m 
unsigned short »a,_tranL«axlerminaU .mm fr{^V*™^ X 

t* descriptive strings is 
ttdetine yescfiutsise k»X> 

unsigneo char descCDescBufsire J : buffer for =^ la « . 

«*rt descidxLhaxOpic,: offset lnt0 ■ ces^%^ ^ ^ . 

30 /««»«*« END 6L0BHLS •««•«*./ 
int Get Session 

/* return 1 if successful »/ 



{ 



char fnameCl53; 
FlLfc* f: 



35 



DnntfCName of session If. fn e uret > = ■ session. ID' : G* ou 



it.- • 
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gets* tname) ; 

* it i+nameCOJ^'XO'} strcoy (-fname , "session. ID") ; 

i* (UnameLl J«'\0'i Uouoper (tnamelOJ; == 'u' ' .' ; returr.««jj; 
- -f = toDeni + name /'rb 4 '. 1 ; 

it ».*==NULL) C printer ~ error ooeninc session nle\n"); return'*'. . ■, 
treac.fesession.sizect (SessionlD) .1 ,t; ; 
-f c lose ( f ) ; 
,\ returnU); 



Page h 



i 



) 

FILER MakeSmyFiteO 
( 

10 char smynameC203; 
FILE* +: 

st^CDVlsmvname, ,, ses5lon.SMY ,, ) ; 

Drintt'"Lreating summary print 4ile -y.s ' . . An* .sravname) 
+ = tODen<smyname,"w"» ; 
i-f f+==NULL» C 

print-fi" — error creating summary orint fil*\n N )- 
15 return (NULL) ; 

) 

tprsntt it /'Machine: fcs\n" .session. machinename) ; 

iCrir.li .» sssssssnssssasssssss es«ssss&=ss\n H ) , 

tprjnitit, "Memory size: f/,E\n" , session. memorvsize) : 
tprintt «t ."bisic size: , /.s\n , \session.ai5Ksize> : 

tonntf i-f ,"Data oase size; '/,s\n" , session. oataoasesize) ; 
2Q tprintt <+ ."Session aate: , /.s\n'\session.aate) : 
fpnnWH ."Session time: fcs\n" , session. t lme) : : 
tprintt Ki ."Comment : V,$ \n" . session. comment i : 
tonntf it ,"\n"J ; 
-fDnnt^ (t \n"j : 

fonnt-f «t* % a times are oiven in seconds \n w ) r, 

tpnntf <t \n") ; 

tonnt+u* ,"\n M ) ; 
return(«f; ; 



25} 



30 



35 



FILE* SetupFile(tnum) 

int -fnum; 

( 

char t name C £03 ; 
FILE* t; 

int i ,opia,atype; 

strcpyit name . session, *i i e name C t num. j; ; 
strcat itname ," .SCP") ; 
t = topenitname/TD".' ; 
li \ i =NULL ) t 

prmtfi" — error opening script tile V.s. Proceed ino anvwav witn no l* bM ^n« 
1 name. 1 : 

) 

eise ( 

treacHoesc .Descfcutsize , 1 ,t.» : 
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tclose(t) ; 

[VJ! lid inaexes to od id description strings i/ 

wmle (descCiJJ25£> { 
5 dtvoe = desc[i++j : 

i+ Cdtvoe == 555) cDia = 0; 

else i* idtyoe == ooid = aescli-f+j; 

else iopid = -1 ; /* i 0r ,ore dtvoe ♦ , 

it (ODid.'=0) cescidxtoDid. 1 = i: 

i += strleniicaesctiD+i; 

) 

10 

s t rcpv i * name , sess lon.ti I enamel tnumJ; : 
strcat (tname." .OP"; : 
return ttopen i tname , "rb" n ; 



InitCountsij 



15 memset '.n^co id, ■ \o ' ,sirsot (n ooid.'Jj 

memset '.Eumx.oczc . 'Vl»' .sizes* is urn:- opidj : 
memset ».sum;<£_o D id , • \0 ' ,sireof isumxS ooid'» > ; 
memset imar._opid . ' v0' .sizes* (max op:d; j ; 
memset (mi n_po id, -\x.FF' .sizeo* uun_0Did)j ; 

memset (n_term, '\0' ,sizeo* m term)): 
memset <sumx_term , *\0* ,3izeof" <sumx_termM ; 
memset lsumx2_term, ' \0' .sizeof (sumx£_term> ) ; 
memset <max_term, ' \0 ' ,sizeot (max_termj ) ; 
memset lmm_term, ' \xFF ' ,sizeot <min_term) ) ; 

memset \sumx_tran , '\0' »sizeot isumx_tran> ) ; 
memset isumxS_tran, ' \0 ' .siseof (sumxE tram; ; 
memset <max_t ran, '\0' ,sizeo* (max tran)); 
memset (min_tran. ' \xFF- ,sizeo* (min_tran> ) : 

25 memset idescldx , '\0- \sizeotidescIax) ) : 



Summarise ii) 
FILE *i ; 
C 

Timingftec t : 
short new_wall: 
3q long tran_time; 

fre&ai&t .sizeo* i ! la-ing^er: .}.■?_•: 
whi Le » • teot • t » ; 

sumx^oDiflCt .QDidj t.stODwaxch: 

sumx5_opidLt.oDidJ += uonon.stGDwatcnMlonQM.nonwMc- 
i* <t.stoo W atch<min_oDidCt.oDidJ> •xn.ooidli '.ooidJ-t .stODwatr- 
35 H (t.stoowatch;max.ooidtt.oDid3) ma^opxdtt .opid J-t .ISSS 
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if J it .ooid==0) ( /* Duration ooid */ 
n_term[t .termno3++; 
sumx_termLt .termno] += t .stopwatch; 
g sumx£_termCt .termnoJ += (long) t .stopwatch* tlong.' t .stopwatch ; 

H it .stopwatch tmin_termLt .termno]) 

min_termCt .termno] = t .stopwatch; 
i+ it .stopwatch>max_termLt .termnoD) 

max_termCt .termno] = t .stopwatch; 
new_wali = t .wallticks-t .stopwatch : /* transaction dsqip tim* 
it (r._term[t.termno]==l) last jaalUt .termno? = new walls 
else ( 

tran.time - new_wall - last_wal ICt . termno] ; 
lastjgalUt .termnoD = new_wall ; 
sumx_tranCt .termno] += tranjtime; 
sumx£_tranCt .termno] += tran_t ime*tran_t ime; 

if (tran_time<min_tranCt .termno]) minJVanCt . termno]=tran time; 
if <tran_time>max_tran[t .termno]) max_tranCt .termno]=tran~t ime: 



Paoe a 



« 



10 



15 freaa '.&t .sizeof (TimingRec> ,1 . t 



20 



j 

} 

Compu t e JleanjSD ( sx , sxc: , n , mean . sd ) 
unsigned long sx.sxS; 
unsigned short n; 
double *mean.*sd; 
C 

double dsx,dsx£ .an, variance; 

dsx = sx? 
dsx2 = sx£; 
dn = n; 

• mean = dsx/dn; 

variance = iasxE - ( (dsx*dsx) /dni ) /an : 
*sd = sqrt (variance) ; 

25 ) 

Outout_Summary (f ,transnum) 

FILE *f; /* summary print file */ 

int transnum; /* transaction type currently processing */ 

( . 

/* NOTE: In the -following, it is mathematically sound to divide the mean 

ana stanaard deviation by a constant in order to chance units. For example 
30 we aiviae the mean and s.d. by TicksPerSec to change the units trom ticks" 
to seconds, however, if there becomes a need to have the 'variance' units 
changed from ticks to seconds, make sure the variance is di video bv 
TicksPerSec squared, not just TicksFerSe; . 

*/ 

int l : 

oouole mean,5d,otickspersec: 
unsigned long 5umx_tot ,sumx2_tot ; 
unsigneo snort n_tot «max ,min; 
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dtickspersec = Ticksf-erSec: 

fprxntf if ."Transaction: "); 
if (descldx[03=0) 

ipriniiii /<» S8eBSSS5SSS -». ssss:iSH = J 

n_tot = sumx_tot = sumx£_tot ■ Os 
max = 0; mm = Oxiiii; 

Jonntflf ."Summary, RESPONSE TIMES bv ODeratior.:\n\n" > ■ 

10 ISiSI":- ~ m ean „!fl. 5td dev ^riotionxn-) : 

tor u=l; UMaxDoxd; i++) ~ Xn "' : 

if ln_opidti]>0) C 

sumx_tot += sumx_opxdCx3 ; 
sumx£_t ot ♦= sumx£_op x d C x 3 5 
if (mxn_opxd£x3<mxn) mm ■ min opidCiJ; 
15 inax_ooxatij>ma>c/ max = max~opioCx3' 

forxntf <f. u JC7hu ",n ooxd[x3>; " 

♦orxnt4if.-X7.2H 11 , idouble)«in_ooiati3/etickw.r-er • ■ 
tonntfif,»5i7.£H Mnear./dtxckspersec) ; 
torxntt(t."X7.2H » . idoub ie>max_opioLx J/dtick«o«r«~- . • 
tprxnttif ,'»7.aif M ,sd/dtxcfcsoersec>: 



20 



35 



H taesclax[i3—6) fprxntf <f.» ♦* Xd j r ,o description «. \ n « - •• 
e ise * ' - * • * • ■ 



) 



tor 1 nt i ( * , - j4 S \n" , fcdesc [oesc 1 dxC iD3) • 



if inJoOO) ( 

Compute MeanJ3D(sumx_tot •sumxS_tot ,n_tot .fcmean.tedj : 

tpnnt t ( t . — — — \n") • 

fprxntf <f ,'"/.7hu ",n_tot) ; 

fprxntf <f ."X7.2H ■ . (double)mxn/dticksoersec - 1 
fprintf if ,"5«7.£H %mean/dtxckspersec> ; 
fprxntf (f .-*7.8H " . (oouole)max/dticksoersec; : 
tprxntf (f ,-/.7.2W ",sd/dtxckspersec); 
*3 fprxntf if." T0TAL\n"5 : 



^rJr n ;I;i , r -n \ n£Um ' nary ' transactlor ' DURATIONS bv termxnal .-.n-.n" . « 
£iS«J;" ------ ffiBan "** std termxnaUn-;: 

for ix=0; idlaxTerminal; i*+) ~" N ' r '" > 5 

if tn_termCx3>0> ( 

30 c °ro"te_nean_SIHsumx_termCi3,sumxe termUJ.n termCi] k«r 

torintf (f .'"/.7nu ".n termCx]; ; .r_.ermi.i J ,&mean.fc s(J j : 

forxntf if, -/.7.2W "7 idoublej mxn_ierm£x3/dtxcKsp e r«r , . 

torxnt+tf. -X7.3H •• .mean/otxcusperseo ; 

tpr i nt * i + , "! - .7 .51 f " , tdouo Is) max_t erm C i 3 / a 1 1 c«-»--b »- > • 

fprxnt*(f.-};7.£if " .sa/dt xccsoerse-) • ' 

forint+ if ,"X4o\n",i» : 



jf ln_oDid£03>0. i C 

Comout e _Mean_St.( S umx_op 10 C03 ,sumx£_opxdC03 .n.ocxdC03 .toetn.ud) : 
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tprintflt," Vn<1) . 

tprint-f U.»V.7hu ".n ooiotOj*: 

S^^lw : 7<floubl r!" n J»»«03/dtici« M «-Mci, 
c .orimtit, Al.dM " .mean/dt icksp=rsec) • 

^imJIJ'-'S'IK IV^l^iidtOJ/fltxcRsoersec:. ; 
Tprim+it, /,7.c;H " .sd/dticfcspersec) : 
tpnnHlt," T0TAL\n")j 

) 

n_tot = sumx_tot = sumx£_tot = Oj 
max = 0: min = Oxff++; 

10 S^^ST*™' transaction by terminal:^,,.,".. , 

tor u=t.-: i Miaxl era i rial; 1++.- ri "' : 
if" '.i_termii J)l.' i 

o:"rv%-T,"^ t i^T ,rs " i,] ' s ^- ,r * nc ' ) -'- , -» i ' ! -'-'-'"-«-' i 

sumx_tot += sumx_tranCi3s 
sumx£_tot += sumx£ tranlij; 
15 i«im_tranCi3(min) min * min trantij- 

i+ 4max_tranCi3)maxj max = msc trantij' 

Tpnnitit, /^.eif " ,mean/dticl?sperse'-) • 
ronnt + ,* ! -y,7.£H . tdoubte>max tr.nti Voti^D-r^r , . 
fonntm.-X7.BH \sd/dtick S persec> I -' fltlckBPB rsf?r -' < 
tprinH(f ."*/.4c!\n".i; ; 

i+ tn_tot;0) t 

^"MTff "- 5015 ^- 101 ^^ -tot ; n_tot ,&«ean, tea ) , 
fprintf (f ,-"/.7hu ",n opad£0]) 5 ' ' 
*print4(*,*X7.EW - . idoubi.>«in/dt»ck«o»r«.c; • 
fonnt*(*,-X7.BH ".mean/dtickspersec) • 
tpnntflf f -X7.sw - . tdoudlemax/dticksperseo • 
*pnnt*(# f -X7.fil* ".sd/dticksperseo: 
tpnnttH," T0TAL\n\n\n") ; 



20 



25 



mair.O 
I 

FlLt* i op; 
FILE* Tsmy: 
30 lnt i? 

i+ i Ibex session!/ > return: 

Dnnt»«"\nMachine: * s Date: V.s Time: Xs\n\n" 

session.machinename. session. date, session. time) ; 

t'_smy = MakeSmyFi le(» ; 
it <+_smy==NULLJ return: 

J " for u=v; i tsession .ntranstype; i+t) .; 
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F'age 7 

lnitCounts () ; 

or mtt, ''Reading »s. . .\n-.MH, on .^ i, naa . £l , , . 
?_cp = SetimFileUi ; " 
g it t+'_op==NULL) C 

_ ormt*l- - error ooemng tunings til.. Mo stats co-out*.--"., 
else t 

5ummarise(t_op) : 
•fclose(t"_op) ; 
0utput_5ummarvt'f_s(nv.ij • 

3 

10 

+closeit_smy» ; 



15 



20 



25 



30 

9 
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^ Append iv V 

Title: Diagnostic Software 
Code Module: WORM.C 

20 



25 



30 



35 
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«?5 1 



/* 



WORM is the hardware configuration diagnostics for fthobot . 

CO copyright 1388 Dvnix, Inc. 
3 written by: J . Wayne Schneider 

date: 7 October 1988 

Worm ,s to be run at the master. It expects a WYSh Sf> termini 

to be on Cum and the slaves to oe connected on PCSS^- 20 - 57 . 

The internal looooack test does not test interrupts. 
The external toopDacK test tests receive interrupt* and h , VB 
10 Txd connected to Kxd and DTR or RTS connected to CIS. 

*/ 

/* #de*me DEBUS 4or mor)itoring C0(n output t/ 

#incluae M \rnoDot\sp aata.h" 

ttmclude "sessile. h" 
15 ^include nrhobot\serial .h M 

tfinclude "menuwmd.h" 

tfincluae <bviaeo.h» 

^include ibscreens.h; 

#include (bkevbrd.n) 

#include (malloc.h) 

^include (string. h) 

#include (stdlib.h) 

#include (stdio.h) 
20 ^include (bios.h) 



/********** 



procedure prototypes 



char *Btatushessage<int) ; 
int rx_trom(iRt ,char *»; 
int get (int .int* ; 
char send (int , char) ; 
25 int tx_totint. int. int. int. mt.cnar ♦ 
void DisplayPortStatusiint ,int) ; 
void DisplavSlaveiDunt) ; 
voia PortDisolavtcnar *j; 
void Select tint .int. int) ; 
void LocalTest tvoid) ; 
void DisplavComPort (void) ; 
int external i int , int) ; 
30 int internal lint. int) ? 
void Comtest (void) ; 
void save_datatvoid) : 
void initjaatatvoid) ; 
voic ftemoteTest ivoid) : 
void SlaveTest unt) : 
void remote (int, mt ,mt; ; 



35 



*detme FALSE 0 
fcde+me IftuE 1 
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WHAT COM. C Tuesday. October 155, 1**3 



ii <!loop_test_porttcomx;) 
puts ("PASSED") ; 

else 

Duts ("FAILED") ; 

senal_init_interrupt (comxa) : 
} 

else 

{ 

prints ("Verification ot port V,o FAlLED\n" ,comx) : 
putsC'Looo back test was not even tried"); 

) 



int sleepm) 
int n; 
C 

long t«l. tm£, i; 

jno=_timeo-faay(_TIME SETCLOCK.&tmi;' ; 
^ U ■ 0 j m n { ih j 
( 

do 

J>iosjtimeofday(_TlME GETCL0CK,&tm2) : 
while (t<nl == tmE> : 
tml = tm2; 
20 ) 



25 



30 



35 
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5 



MENU mainn*, iocaiM. remoteM: 

static cnar rx_DutterC51EJ ; 

static int coml_status = u; 

static int master_status[3£3 ; 

static char slave_idC3S3L9D ; 

static int slave _port_count£3£3 ; 

static int slave jDort_statusC3EDC5£3: 

fiiamO 

10 t 

char cmd; 

int curjDii ,cur_row f cur_col ,cur_hign ,cur_low; 

mit datau: /* read the data file and mit «/ 

scpclrO; /* clear screen */ 

/* save state erf cursor */ 
15 curjjff = sccurstd^cur^row^cur.coK&cur^high.icurJow): 

/* initialise data */ 
InitMenuWind () ; 

MakeMenu ( kmai nM , 

"C0Ml:Test C0M1 on Master", 

"Local :lest ports on Master", 
- n "RemotetTest oorts on the Slaves", 

* u ••Quit". 

MakeMenu k toca I h , 

"Internal : Test ports using internal loopback" , 
"External :Test ports using External loopback connector", 
"UpsSelect next port up the screen", 
"Down: Select next port down the screen", 
25 "Clear :Clear the recorded status", 

-Tvoe-thrcugh takeover a slave port with the tovse terminal' 
Qui t , 

MakeMenu (kremot eM , 

"Reauest sRequest the slave ID", 
"Slave:Test the slave ports", 
30 "L'p:Select next slave up the screen", 

"Down; Select next slave down the screen" 
"Clear :Clear the slave status", 
"Quit", 
: 

DiSDlaylienu(fcmainM) • 

35 ° C C 

switch ..cmo = fietftenuifemainM)) 
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r'age 

case 'C: 

RemoveMenu(kmainM) ; 
c ComTest O : 

scpclrO;'/* clear screen */ 
DisplayMenuikmainM) : 
Dreak ; 
case 'L': 

Removertenu(Scmainh) ; 
LocalTestO: 

scpclrO; /# clear screen */ 
DiSDisvhenu(&maintl> • 
10 break; 

case 'R* : 

Removerlenuf&mainM) ; 
RemoteTest O : 

scpclrO; /* clear screen */ 
Died layhenu (fcmaintt; : 
break ; 

15 3 while icmd != 'Q') • 

save_dataO ; 
/* restore cursor */ 
scpclrO: /* dear screen */ 
sccurset (cur jrow,cur_col) ; 

sc Pg cur(cur^o+f f cur^high,cur^low f CUR.NO^ADJUST) : 

20 /M ""»» P-cedure Re.oteTest 

void RemoteTest O 
C 

int i , Direction = l • 
char cmd; 
int comx = 0; 
char packet ? 
25 char tar *ouHC3S3; 

Displavflenu(kremoteM) : 
PortDisplay ("Slave Identification"); 
•for <i=0u<3£:i++) 
( 

Diso lavSiavelD(i) ; 
bu+tUj = _fmalloci5l£) : 
3Q i* <bu«ff£i3 == NULL) 

puts^'malloc error"); 

return: 

} 

serial.xmt(i+050,96.00,O><0S,Owb,0^0l .su«tu f 5l= 0; ■ 
serial_imt_interruotu+0£0.0): "<-i-.-> . 



35 



do ( 
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f'age 4 

beiect (com;-;, BLACK • WHITE; : 
switch icmd = Get Menu (^remoter!) ) 

r 
w 

g case 'R'j 

^ master_status£comx3 != 0x100; ^ 

switcn ltx_to(comx.0.0,EN& f 0 .NULL; ; 

case -a : 
case NAK: 

10 £ster_ S tatusCcon.x] != 0x40; ,« set baa l ine flag ./ 

case CAN: 

* J^^- at **u»Cco»c] »- OxBOj /« set cancel flag «/ 
case ACK: 

mas t er _s t a t us C c omx 3 &=Gx l OF ; 
if (rx_fron)(comx f packet) == ~\\ 
15 eiss «aster_ 5 tatusCcom>cJ != 0x10;/* set timeout flag */ 

C 

slave jjort.countCcoaxJ = packet CDATA3 ; 
strncpy(slave_idLcomx] Vpacket CDATA4i] lS ) - 

break: 

) 

break : 



20 



case 'S': 

it* Umaster^statusCcomxD It OxlFO) != 0x100) 



utalarmi J ; 
break : 
) 

Removehenulkremoteh; ; 
2 - SlaveTest icomx; : 

ftcpclrO: /« clear screen </ 
Disd lavMenu(ltremoteM) ; 

PortDifiolay ("Slave Identification"* • 
for (i=0;i(3£;i++) 

DisplavSlavelDii) ; 
break; 
case 'U': 

direction = -l ; 
30 break: 
case 'D ' : 

direction = +i; 
break; 
case 'C: 

slave_port_count£comx3 = 0; 
master_statusLcomx3 &= OxOF; 
slave_idlcomx3C0] =0: 
break : 

) 



35 
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DisplaySlavelD(comx) : 
Select (comx, WHITE t BLACK) ; 
comx += direction: 
- i+' i comx < CO 

comx = 31 ; 
if (comx ) 31) 

comx = 0; 
) whi le (cmd != 'G!') ; 

tor ii"0;i l3£si++) 
C 

serial_init(i+0£0,9600,OxC»3,0,0 ¥ buffCi] f 51B,0) ; 
10 senal_init_ interrupt (i+020.1) : 

_ffree(buft*ti3) 5 

} 

RemoyeMenu(&remoteM) : 



15 procedure SiaveTest 

*«**#***#**/ 

void SlaveTest (slave) 
mt slave: 
( 

cnar titleL403: 
char cmd ; 

int 1 , direction = l ; 
int comx=0; 



20 



DiSDlavhenuC&localll) : 
strcDV (title," Slave ") ; 
strcat it it le.slave_idLslave3i ; 
strcat (title," port test "); 
PortLuspUy(title) ; 
tor U=0;K3£;i++) 

25 BisplayPortStatusd, slave j>ort statusCstaveHiJ) : 

do t 

Select (comx, BLACK , WHITE); 
switch (cmd = GetMenu(MocalM) ) 

C 

case 'I': 

remot e( slave, comx, 1 TEST) ; 
break : 

30 case E': 

remote(slave,comx,ITEST) ; 

it i5lave_port_statuslslaveDlcoinx3 k OxOfi) 

remo t e is lave, comx , ETEST ) ; 
break : 
case 'U': 

direction = -1 : 
break; 
case 'D': 

direction = +i ; 
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breaic ; 
case 'C: 

slave^port^statusCslaveJCcomxJ * 0; 
break ; 

5 case 'T's 

serial_init (1 , 9*00, 0x03, OxOb ,0x01 ,rx buffer ,512, o> - 
seriat_init__interrupt (1 ,0« ; 
t >ij o i s I ave , c omx , 0 , PASS , 0 , NULL ) ; 
vi dspmso c 3 , 5 . WH 1 TE . BLACK , 

Wvse to Host PASS THROUGH *«♦"); 
vi dspmso (4.11 .WHITE .BLACK . 
"(return) to terminate"); 
10 do P*ss_thru (slave, comx) ; 

while (fcbdO f= CR) ; 
tx_to is I ave , comx . 0 . A PASS , 0 . NULL ) : 
sec Irmsg (2,5,50) ; 
scclrmsg(4.1i.50; ; 

serial.init U ,%00, 0x03, 0,0, rx buffer ,512 ,0) ; 
seriai_init_mterruDtU.l/ : 
break ; 

) 

DisDiavPortStatustcomx, slave j3ort statusCslav^Jf co*-3) • 
Select (comx .WHITE, BLACK; ? " ~ ' 

comx += direction; 
if (comx ( 0) 

comx = 31 ; 
if (comx ) 31) 
comx = 0; 
0 } while (cmd != 'Q') : 

20 Removertenu(UocalM) ; 
) 

/«*«******«* orocedure kbd «««««««««*/ 

l:bd ( ; 
C 

if juosjcevord( _KEYBRD_READY) ) 

25 ^ return t _d i os_fce vb r a 7_kE Y BRD_READ ) & 0xFF> : 

orocedure pass_thru 

pass jthru <s l ave ,por t ) 
mt slave, port; 

( 

30 ln l 15 

int comx = slave + 020s 

char oacket CPACKET_BL»FFEft_SIZE3 ; 

«MYiK l " UM " check ths Wvse dsta 

SpUllct J ); /* on BREAK clear th= nuM ./ 

35 J^'-to (slave. pert ,0,PASS_BREAK,0, NULL) : " 



Psos i- 
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else if u & DR> 
l" 

tor vi=0;i <250;i++) 
c it ( ipacketCH = sduUc(I); == EOF ) 

break; 

t^_toCslave, port f 0. PASS, l.paacet) ; 

if trx_status(com;<) & DR) 
C 

if tr^-fromCslave^acket ) == ACk; 
t or ( i sO : m oac ke t [LEND -4 ;i++> 

whi le( Isoushc ( 1 , packet CBATA+i 3) ) 
*0 continue; 

) 

) 



Page 7 



/««•««.»*.. procedure remote 

void remote(slave,port ,cmd> 
int slave, port , cmd; 
15 < 

char packet CPACKET.BUFFER_SI2E J ; 

S lave_port.status ts iave3 t port3 fc-OxOF; clear th> status t/ 

switch ^«-to<slave, P ort,0,cn,d, a ,(char., ttslavej)0rt _ statuECElave;i£port]n 
case -l: 

20 J^-P-t-StatusCslaveKport: 1= OxSO; /, 5et tlaeout #Ug „ 

case NAK: 

slavej.ort.statusCslaveJCportD ,- 0x40; Dad line flflg 

case CAN: 

slave.oort.statusCslaveKporU 1= 0x80; ,. set cance! fUg «, 
case ACK: 

if (rx_from(slave, packet) == -l ) 

^^slavejort.statusCsiaveDLport] 1=0x10:/. set timeout flag*/ 
slave.oort.statusCslaveDCDort] = i in t> packet [DATA] ; 



25 



break; 



30 



} 

/•**** 
«****/ 

void inn aataO 
( 



procedure init_data 



FILE ^stream; 
^5 stream - fooen( " WORM. DAT", 14 rb > : 
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if (stream == NULL. 1 
return; 

1+ ^read<teoml_status,5i2Bof (int) ,i fS treaffl) < 1) 
return; 

5 if (fread (master .status, siseof(int) ,32, stream) <-:=>) 
return? 

if (fread <slave_id,sizeof (char) ,35*9, stream) < 32**) 
return: 

if if read (slave j>ort_count,sx 2 eof (int) ,32 .stream) (32) 
return; 

if <+>ead(slave_port^5tatus,=i2eof(int),32*32,stream) { 32*3*) 
return; 

10 tc lose (stream; ; 

j 

/****♦ 

orocedure save data 
****#/ "~ 

void save dataO 



15 



c 

FILE *stream; 



stream = f ooen(" WORM. DAT" ? ,, wb M ) ; 

fwritei&coml_status,sizecf lint) ,1, stream) ; 

♦wrxtednaster ..status, sizeotuntj , 32. stream) ; 

twnte(5lave_id,si2eof (char) ,32*9, stream) ; 

fwrite<slave_portj:ount ? sizecf (int) .32, stream) : 

20 !^ lte ) slavs ^ ort . s tatus,si 2 eof(int),32*32,stream); 
^ u fclose(stream) : 

) 

/***«* 

procedure ComTest 

«**#*/ 

void Comtest O 
25 ( 

char cmo; 

Hisplayf1enu(falocalh; : 

do C 

DisplayComPort () ; 

switch land = Gethenu <*docalM) ) 

30 < 

case T: 

coml_status = internal (coml status,!): 
oreak: 
case '£': 

coml ^status = internal (coml status, 1 ) ; 
if l corniest at us k 0x02) 

coml_status = external (coml status^- 
break; 

J 3 case 'C: 
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) 



coml_status = 0; 
break; 



3 while icmd := -Q') ; 
RemovehenutfelocalM) ; 
) 



procedure internal 



Internal ioopbacic test on com port 
^0 *****««**«/ 

int internal lstatus,comx> 
int status, comx; 
( 

int err; 



status 0x0 1 ; 
25 err = test jaort (comx) ; 
l* lerr) 

status L= ~0x0£; 

else 

status {= OxOE; 
return status; 
} 



/* say it is tested */ 

/* not -found */ 
/* found */ 



20 /*««*«#*»«* 

orocedure external 

External loopbacl: test on com port. 
*****«««**/ 

int external (status. comx) 
int status, comx: 
25 ( 

status != 0x04; /* say it is tested */ 

ser i a I _i ni t (comx ,9800 , 0x02 1 0x0b , 0x0 1 , r x_bu* i er , 5 1 £ , 0; ; 
£enal_init_intenrupt (comx,0> ; 
i+ (loop_test_port (comx) ) 
status ~0x03; 

else 

status != 0x08; 
30 senal_init_interrupt lcomx,l> ; 

return status; 
) 



procedure DisplayComPort 

35 void Disc-lavComPort (> 
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C 

char *status; 

sec irmsg (5,5,50) : 
5 vidspmsQ(5,5,BLACK,WHlTE,' , C0Ml: «} ; 
status = Statushessage(coml status;: 
vidspmsg (5,11 , BLACK, WHITE, status) ; 

/***#**#*#* 

procedure StatusMessage 

2Q «*«*«*«#«*/ 

char *5tatusMessage (status) 
int status: 
( 

static cnar msg[£5]; 



15 



20 



switch istatus I 0x03.' 
{ 

case £: 

case 0: strcoy (msg (not tested) ") :break ; 
case 1: strcpylmso," NOT FOUND u ) :break: 
case 3: strcpy (msg , M FOUND «) sbreak; 
3 

switch (status Se OxOC) 
I 

case S: 

case 0: strcat (msg , M <not tested) n ) (break; 
case 4: strcat (msg . - -failure ") rbreak: 
case 15tstrcat (msg," GOOD "Mbreak; 

switch istatus it OxFO) 
( 

25 case 0x10: strcat (msg, M NO ANSWER") ; break; 

case 0x20 : strcat (msg , ■ 7TIME0UT" ) :break : 

case 0x40 : strcat (msg , M ?NAK U ) ;break ; 

case 0x80 : strcat (msg , - 7CANCEL" ) ;break : 

return msa: 
) 



2q 



oroceaure Local Test 



35 



void Local Test () 
C 

char effld; 

int i , direction = i : 
int corax=0; 
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DisplayMenu<SclocalM) ; 
PortBisplayC'Local Ports"); 
for (i=0:i<S£:i++) 

5 do f SPlavP0rtStatL15(l ' mas ^r^tatu 5 CiJ); 

Select (comx, BLACK, WHITE) ; 
switch icmd = betrtenu(HocalM) > 

case 'I': 

aaster.statustco^ . internal Uaster.statusCco^ lCWWl , 
case '£': 

case 'U': 

direction = -l : 

break : 
case 'D': 
15 direction = i ; 

break : 
case 'C : 

master_statusCcomx3 OxFFOO- 
break : 
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*isplayPortStatus (comx, master statustcomxD) . 
select (comx .WHITE f BLACK) ; " ' U5LCOmxJ) ' 



2Q comx += direction; 

i* (comx ) si) 

comx = 0; 
i* l comx < 0) 

comx = 31 : 
> while (cmd != 'Q'> : 
RemoveMenu(fclocalM) ; 



25 



/***«#**#* 

void Select (comx, fore, back) 
int comx, -fore, back; 



procedure Select ...„„„, 



int row,col; 

3q char buff £4]: 

sprints (buffi" xea '\comx) ; 

row = * 2 i 

col = (comx/lfcj * 40; 

V10SDIDSO Irow, col, fore, pack, buff); 

/«*»*««««* 

35 procedure PortOisplay 
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Show tne status ot the ports. 
**##*#**#/ 

void PortDisplayCmsg) 
5 char *mso: 

C 

int i: 

char string[4J; 

l = 40-(strlen(msc>/2) ; 
vidspmsg (5 , l « BLACK, WHITE, msg) ; 
tor (i=0;U3£jih) 



Page 
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Select U , WHITE, BLACK) : 
) 

) 



/«****«#** procedure BiSDlaySlavelD *****,*««*/ 

^cj void DisplavSlavBlInconix) 
int comx; 
( 

int row, col; 
char bu-f+L£4] s 
char *msg; 

switch imaster^statusCcomxJ I OsAFE) 
i 

20 default: 

case OxOO: msg = J, no port ! " ;break ; 
case 0x02: msg = "reouest?" ;oreak : 
case 0x102: 

sprint* (buf-f ,"y,8s with K2d ports", 

slave_idCcomx3,slavej3ort count [.comx] > : 
msg = bu+f; 
break ; 

25 case 0x112: msg = "NOANSWER" ;break ; 

case 0x122: msg = "?TIHE0UT M ;break: 
case 0x142: msg = " ?NAK ";break; 
case 0x182: msg = "?CANCEL "streak: 
) 



30 



row = cooxXlG * S: 

col = icomx/16) * 40 + 3; 

scclrmsgirow.col ,30) : 
yicsomsg<row,col , WHITE, BLACK, msg) ; 



procedure Died layPortStatus 



void Di50lavPortbtatusicomx, status* 
35 int comx, status; 
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10 



( 

int row, col ; 
char *msg ; 

row = comxy.lt. + S; 

col = lcomx/16) * 40 + 3: 

msg = StatusMessageistatus) ; 

scclrmsgirow,col.36) ; 

vi dspmsg (row, col , WHITE , BLACK , tnsg ) ; 



/*#****«*# 



rescheduleO 
( 



Dummy routines to *ool other procedures 



/*#*#**#** 



15 



20 



procedure tx_to 



«***«*«***/ 



int tx_to(coflix,dest .srccmd ,len,buff ) 
int comx, best, src, cmd , len; 
char *buH; 
C 

int try, i, rx_parity, answer; 
long tm, new_tm; 



com:* 



020 ; 



25 



•for ltry=0;try(8;try++) 
{ 

#itdef DEBUS 

print* < tt TX - M ) ; 

#endif 

rxj>anty = send (comx, SYN) ; 
rx_panty send icomx. len + 4); 
rx_parity A = send (comx ^dest ) ; 
rx_parity J '= send (comx,src> ; 
rx_parity send lcomx,cmd) ; 
for U=0:i(len;i++) 

rx_parity * = send <comx,bu-ff C i □ > ; 
send(comx.rxj)arity) ; 
ttifdef DEBUG 

print -f ( M \nRX - «) ; 



/* make it a PCSS S number </ 
/* try to send it 8 times «/ 



30 ttendif 



35 



do C 

i = TRUE? 

switch (answer = get <CDmx,20) ) 
C 

case ACfc: 
case NAK: 
case CAN: 

•tor (i=0;i <3;i++) 
oet (comx ,20) : 



/* wait -for response */ 



/* get rest ct answer 
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case -1: 

i * FALSE; 

) 

3 while (i) ; 

5 

ti-fde-f DEBUG 

finnt-f r\n") • 

#endif 

i* (answer == ACK II answer == CAN I! answer == -n 
break : 

} 

return answer; 

10 J 

char send (comx.c) 
int com?? \ 
char c; 
( 

whi le ( ispushc (comx ,c) ) continue : 
ig tiidei DEBUG 

print *t»%2x» ,c) ; 
#endif 

return c; 
} 

int get (com*, time) 
int comx. time; 
( 

20 int c: 

long tm, new_tm; 

Juos_timeo*day<_TIME GETCLOCK.fctm) : 
do ( ' 

c = spullc(comx) ; 
li ic = -1) 
break ; 

25 - bi ° 5 «timeofday(^TIME^GETCLOCK,&new tm) ; 

) while ( (tm ♦ time) > new tm ) : 
#ifdef DEBUG 

print* (•"/♦3x ,, f c>5 
#endi+ 

return c: 
) 

3Q procedure rx.from 

int rx_-from is lave .packet) 
int slave; 
char packet £): 
C 
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mt i, rx_pantv, len; 
int c: 



35 



int comx = slave + 050: _ 

vev, /* maks tnjs a Dort addre££ ft/ 
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repeat : 

ft i -foe* I»EBUb 

print* ("rx - "> ; 
#endi-f 

do ( 

c = get I comx, 60) ; 
it (c == -l) 

return c; 
) wmie (c := SYN) ; 



10 



15 



Tuesday, October ie. 
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20 



25 



rx_paritv - c; 
packet [TYPE] = C ; 
c s get (comx ,20) ; 
\i (c == -1) 

return c; 
rxjDanty " = c; 
len = c; 

packet LlEN J = c: 
-for (i=0;i Uen;i++j 
r 

c = get (comx, 20 J • 
ii KC == -i) 

return c: 
rx_parity = c: 
packet CDEST+i 3= c: 

} 

#i*det DEBUG 

print* ("\ntv - : 
#endi-f 

i-f (rxjDanty == Cm 
( 

send (comx, ADO ; 

send (comx. 2) ? 

send (comx, packet CSRC3) ; 

send (comx, packet CDEST3) ; 

return ACK; 

) 



/* wait tor \t)<? sv.nc bvte •/ 



/* get tne length «/ 



/* get the rest o* the packet */ 



/* acknowledge a gooo sackst > ■' 



senoi comx, NAk; ; 
sendicoflix.S) ; 
send (comx, packet CSRC3) ; 
send tcomx .packet CDEST "» ; ; 
#itdet UEBbb 

orintf ("mi") : 
30 #encit* 

goto repeat: 



/« negative acknowledge ♦ / 



35 
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Code Modules: SCRIPT . INC 
AUTHOR. ASM (sample script) 
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.XL I ST 
. XCREF 

Command Macros for the Script Processor 

This -file is to be included in all script -files -for MASM 

(C> copyright 19S3 Dynix, Inc. 

written bv: J. Wayne Schneider 
date: S July 19S8 

.MODEL SMALL 
.CODE 



Ascii Constants 



NULL EQU 0 
CR EQU 13 

15 

? DEF I NE _TRANS _T YPE text 

: The de< ine_trans_type macro is used to give a name to the transaction we are 

: running, it is better than using just the filename. Onlv the MASTER 

; has any real use -for this. 

20 ? 

de-fine_trans_type macro text 
db " 255, text, NULL 

endm ; 



5 



10 

■ 



25 



30 



define_op_id name, text 

The define_op_id macro is used at the beginning of all serin t files 
to define the mneumonics and their associated descriptions for 
checkpoints only. The SLAVES never 

actually use the description but do use the name. The DEFINES must 
be at the beginning of the script file or the MASTER will not find them. 

; The macro will use $$DNUM to assign numbers in order beginning with i. 

«0NUM = 1 



DEFINE J)P_1D 
name = 
db 

$*DNUM - 

endm 



macro, name, text 
*$DNUM 

254 , name; text , NULL 
$$DNUI1 + 1 



35 
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def me_process_id name, text 

The define j)rocess_id macro is used at the beoinnino of all =cript hl^ 
to define the mneumonics and their associated descriptions. The 
MASTER uses the descriptions tor user interface. The SLAVES never 
actually use the description out do use the name. The DEFINE* mu^ 
be first in the script file or the MASTER will not find them. These 
are used by the PROCESS command. 

The macro will use $$DNUM to assign numbers with def ine_op_id. 

10 DEFINE_PROCE5S_ID macro name, text 
name = $$DNUM 

db £53 , name . t ext .NULL 

**DNUM = $$DNUM + 1 

endm 



15 ; PROCESS <id> sends the ID to the master for identification purpose-- 

The master can use this for real time identification 
of a process within a script. 

PROCESS MACRO Al 

DB 01 ,A1 

ENDM 



20 



BREAK 



This will send a break to the com port for 55 msecs and the wait for 
5-j msecs before returning. 



25 BREAK MACRO 

DB 02 
ENDM 



WA I T J="OR_OPERAT0R 

30 ? This command allows the master to control synchronization of the 

transactions in the slaves. Only one response is reauired from th* 
operator to start all of the suspended processes. 
A random delay, based 

on the transaction rate, is inserted after the operator resoonds. 

WA I T_F0R JDPERATDR MACRO 
35 DB 03 

ENDM 
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Ihe LLEHK.INF^T.WINDOW command is used to clear the sen*. r„, ■ 
bu*ter ot stored data. It should be used lit" l lelZl I 
is completed, or just before an output S.f illl 0 llZ^ * Dr ° mpt 
oi data. H it is not used enouoh *L generate a new screen 

- . LOOK.™ My ,5 2S ^^Sr^'" ° V ""°" 



CLEAR_INPUT_WINDOW 



10 



MACRO 
DB 

ENDM 



04 



OUTPUT (string list) 



15 



will output to the serial oort the string 
and sys en, variables, termination on nuU 
Character throttling is done here, 
in order to have multiple items in the list 
surround them with anole brackets. 

siThSriSr are ** R1 thru v ^ « 



OUTPUT 



20 



MACRO Al 

DB 05 

DB Al 

OB NULL 
ENDM 



25 



BE6 I IMJT I MED_LQ0P 
END_TIMED_L00P 

These serve to give a timed loop when searchin 0 4nr 

various strings. Usually used with LOOK Fo£ The time 

is a constant controlled by the ma«=ter 

BEBXN.TIHEDJLOOP starts the timer 

and ENDJTIMEDJ.OOP checks the timer. 

This timer is never reported. 

NOTE: These cannot be nested! 



30 BE6IN_TIMEDJ-00P MACRO 
DB 0£ 

ENDM 



35 



END_TIMED_LOOP MACRO 

OB 07 

DW SB 

ENDM 
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LO0K.F0R text. label 

This statement is used to scan the input window for the -text" 
it at is found, transfer is made in »iaK=i« - * 

through to the next statement^ ese^OT c ^E^'^ 
xn either case, vou must explicitly cl J^I^i"^ l " indD " 



10 



L00K_FDR 



15 



MACRO 


A1,L1 


DB 


OS 


DB 


Al 


DB 


NULL 


IFB 


<L1> 




BW 


ELSE 






DW 


ENBIF 




ENDM 





SF 



LI 



20 



WAIT_TIL_lIiL£ t n > 



This command waits tor the 

incoming serial line to be Quiet . 

As long as data continues to come in, we wait 

iTn? 0 . h3S arrlved f0r n clock tick? proved 

The numeric argument represents the number of 

firsts is s: ior idie une - » *™ 



25 



WAIT_TIL_IBLE MACRO 
DB 09 
IFB iN> 
DB 

ELSE 

DB 
END IF 
ENDM 



N 



30 



REPORT status 



Sends a status report to tne master 
Status types are defined later in the file 
The status definitions are hard coded. 
Tne master can use it 

tZZ^V ° rOCeEE * Dllowl ™? *ne emotion 

reDorting, ex. timeout. 



REPORT MACRO SI 
35 DB 10.S1 

ENDM 
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s : 



EXIT 



Tells the program we have reached the end. 
Processing will be suspended until the master 
requests a new script tile to process. 



EXIT 



10 



15 



MACRO 
DB 

ENDM 



11 



BEG I NJTRANSACT I ON 
END_TRANSACT I ON 

These are similar to a T1MEDJ.00P but they are indefinite. Exit from 
£ng to'.erT 5 " °" * ^ M imPUed 8010 ' ° P the ^ansacti.n count 

Sr?i^ n S r f P ° rt *? the ma - ter the trans * c *ion ID and check point 
' ° the transaction file. Transaction throttlinq is done nere. 
based on the cumulative transaction time and desired rate. 

NOTE: There can only be one set of these cer 
script file. 



2Q BEG I N_TR ANSAC T I ON MACRO 

DB 19 
$BEG 1 NJFRANSACT 1 ON ECU $ 
DB IS 
ENDM 



;Start cumulative timer 
;Start single timer 



25 



ENDJTRANS ACT I ON 



is just a go to the top of the repeat loop. . 
The number of transactions per session is 
controlled by this command. It can be set from 
1 - 65525 or 0 which means indefinite. 



END JTRANSACT I ON 



30 



MACRO 

DB 13 

DW $BEG1N TRANSACTION 

ENDM 



35 



GET DATA 



label 



This will read into the VARn variables a single record of oata. 
The variaoies are limited to VAR1 through VAR* 

The data for an entire transaction must~t>e contained in a single recorc 
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ior this command to function. The items in the record are atoned to 
If an end of file is encountered, it will transfer control to label. 
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GET DATA 



10 



MACRO 
DB 
IFB 

DW GF 

ELSE 

DW LI 
END IF 
ENDM 



LI 

14 
<L1> 



15 



THINk_TIME will simply give the "user" time to think about *h« 
data on the screen. It delays an amount soecified 
by a global constant modified by a random number. 
The actual time delayed is the think time +/- 
1/2 of the thinic time. 



THINK JT1ME 



MACRO 
D6 

ENDM 



20 



BEG1NJT1MER n 

This will start the clock running specified by n, wnere n is o to 9, 

All it really does, is read the current clock tick counter for ate^ 

comparison by the CHECK-POINT. ale ' 



25 BEG1N_T1MER 



30 



MACRO n 
1F£ 

IF n 6T 9 
.ERR 

/.OUT ? BEGINJTimer number out of ranoe 1 
END IF " * 

END IF 

DB lb,n 
ENDM 



35 



CHECKPOINT n,op_id 

This will send the time from timer n and op id to the master tor in 

I^V £ " l 5J! UtB ? bY subtr * c ^ tn. vllue in Um^r n rL tne" 9 ' 
current time. The value is in clock ticks, 1/S0th 
of a second. (4.7727£0mhz / 4) / 5%53 = EO 
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CHECK-POINT 



10 : 



60T0 label 



GOTO 



15 



MACRO n,Ll 
IF2 

IF n GT 9 
.ERR 

ENDIF 0UT ? CHECK - P0INT ™-r nu*.r out o< range! 
ENDIF 

M 17,n,Ll 
ENDM 



transfer oi control (sorry Nicholas) 



MACRO 

DB 

DW 

ENDM 



Li 

IS 
LI 



WAIT.FOR string 

the xnpat window is cleared and execution continues. 



20 



25 



WAIT_FOR MACRO SI 

LOCAL WAIT END, WAIT OVER 
NAIT.OVER: BEGIN_TIMED_LOOP " H1I - 0VER 
L00K_FOR 31 ,WAIT END 

END_T I MED_LOOP 

REPORT TIME_OUT 

SOTO WAIT_0VER 
WAIT.END: CLEAR INPUT WINDOW 

ENDM 



30 



Constants for the Script Processor 

This file is to be included in all scriot files for MASM 

(C) copyright 1938 Dynix, Inc. 
written by: J. Wayne Schneider 
date: g j u i v j^gg 



REPORT STATUS constants 



35 SUCCESS EQU 00 
FAILED EDU 01 
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TIMEJDUT EQU 02 
END_OF_DATA EQU 03 
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SYSTEM VARIABLE constants 



ARG1 
VAR1 



EQU 131 
EQU 141 



10 



15 



20 



25 



30 



. CREF 
• LIST 
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2 AUTHOR. ASM Wednesday , August 31 , 1983 

rage l 

Script file for LOOPING in Author .Browse 

(C) copyright 19SS Dynix, Inc. 
written by: J. Wayne Schneider 
date: n ji u i y jggs 

INCLUDE SCRIPT. INC 

define_trans_type "Loop through data doing author search- 
define _process_id PACJWTHOR_BROWSE,"PAC author search" 

def ine_op_id AUTHDRJTOJBIB, "Author to bib" 
defme_op_id PAC_AU7H0RJ_AST , "PAC time to last oata" 



PROCESS PAC_AUTHOR_BR0WSE 

OUTPUT CR 
WAIT_FOR 

OUTPUT ( "PUBLIC", CR) 
WAIT_FQR "RETURN" 
OUTPUT CR 
WA1T.F0R "RETURN" 
OUTPUT <"2",CR) 



BEG I N_TRANSACT I ON 

20 GETJUATA 5 END TRANSACTION 

WAIT FOR "first) :" 
OUTPUT <VAR1 ,CR> 

BEGINjriMER 1 
WAIT_F0R "(Return)" 
THINK JTIME 
OUTPUT <"1",CR> 
BEG I NJT I MED J.OOP 

25 L00K_FOR "number" # D01 

LOOK_FOR "Works", DOS 
END_T I MEDJ.OOP 
REPORT TIME OUT 

EXIT 

00 * 8 CLE AR_ INPUT WINDOW 

THINKJTIME " 
OUTPUT <"1",CR> 
30 WAIT_FOR "Quit" 

D °£= CLEARJNPUT WINDOW 

THINKJTIME " 
OUTPUT CR 
WAI7_F0R "Quit" 
CHECK-POINT 1 ,PAC AUTHOR LAST 
THINKJTIME 

OUTPUT <"G",CR) 
END_TRhNSACT1GN AUTHOR TO b\B 
35 $END_TRANSACTION : " " 
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REPORT END_OF_DATA 
WAIT^FOR "-first) 



OUTPUT 

WAIT.F0R 

OUTPUT 

WAIT.FOR 

OUTPUT 

WAIT FOR 



CR 

"RETURN" 
<"7" ,CR> 
"RETURN" 
< "LATER" ,CR> 

ii y u 



EXIT 



10 



END 



15 



20 



25 



30 



35 
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APPENDIX H 

Title: Miscellaneous 
Code Modules: SPKR.C 

T.C 

WHATCOM. C 
MK. BAT 
SP1L. BAT 
S PL. BAT 
SPNL. BAT 
SP.DAT 
MENUWIND.H 
SES__FILE.H 
SPN.LNK 
MENUWIND.C 
SP1.C 
TUNES. C 
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1 SPKft - c Friday, SeDtember 16, 1988 

*include (stdlib.h) 
#include <butil.h> 

main () 
5 c 

int i.j.k; 
do ( 

putsC'number :") ; 
scarvf ("*/.d",i:i) ; 
utspkrti) : 
) whi le (i != %*r$) • 

J 

10 



Fags l 



15 



20 



25 



30 
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#include (stdio.h) 
main () 

5 int is 
se 

■for (i=0?i<3e;i++) 

sputc<OE0,i+4S) ; 
sputc(OSO,OxOD) ; 
goto lab; 
) 

10 



15 



20 



25 



30 
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/* 



tC) copyright 1988 Dynix, Inc. 
written by: j. Wayne ScnneitJer 

aates £• July 19SS 



This program looks , or cm oorU an£j ^ ^ ^ ^ ^ 



10 



«/ 



update 
July 19, i9ss 

Sept 1, 1983 
Sept £, 19S2 
Sept 16, 1988 

Oct 17, 1988 



Readjusted pprts 1 £ 3 4 5 e , -, 

Added startuo message 

Fixed corns fc 6 to match "special" PCSS-S 

Totally revised to see PCSS-8 ports 

Added external loopback test. % n ll ks 

with a command line port number. 

Removed DTft-CTS from external loopbac, test . 



15 



20 



25 



30 



35 



#incluae tbios.h) 

♦define FALSE 0 
#define TRUE ( .'FALSE) 

/nam large. argv) 
int argc; 
char *arovC3: 
C 

int comx: 

char rx_bufferC51£] ; 

puts<" WhatCom y.5 10/17/8S-) . 

PUts<""); 

if (aroc == l) 

( 

tor , cob = , . comx ( M0 comx++) 

i* <-!test_port(comx)) 
+nr , orint ^"l found COrr/.ldvn«,canx): 
tor « . uio : comx ( 0100 , comxW 

it « : test jaort (comx)) 

puts(....); ^lnH(, * I f ° Und * PCSS ^ KW-.com*,, 
puts<" That's All Folks.'"); 

else 

( 

"canHargvCiV'jio-.&comx): 

if (comx II!! comx ) 077 ! : argc > £) 

puts ("whatcom (n)\n\n(n> must be in rann* , » 

exit(l); oe ln ranoe ° + 1 to 77 loctali 

3 

if ( !test_port(comx) ) 
C 

orintft'Loop back test of Xo - \com-) • 

serial_i nit (comx, 9600, 0x03, OxOb.OxOl'Vv h.m ... 

"rial.init.interrupticoax.or, ' £,0,s 
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masm XI J 

i-f error level 1 goto end 
5 link XI s 
exe2bin XI t'.l .scd 
del Xl.obj 
del Xl.exe 
:end 



10 



15 



20 



25 



30 
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F-3G5 1 

link spl + get.scr- do_scnp + slee P+ timer* transit- io + rnd + sp.data* serial: 



10 



15 



20 



25 



30 
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link sp+ sp_setup+ testport* sleep* sp_gdata+ task* serial... CT5 H5l; 
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20 
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link espn.lnk 



10 

15 

20 
25 
30 
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Page 1 

100 transaction rate in ticks. 1 transaction every n ticks 

10 number oi transactions 

10 think time 
200 timeout 

1 throttle back to 200 Mpa (assuming 6- characters/word) 
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1 MENUWlND.H Tuesday, October 13, 1*88 

menuwma .h 

ftenu and Window types 

£hol lino Stone 

K. Brook Richan 

(CJ 1938 Dvm;;, Inc. 

****** / 

10 /* bmenu includes bwindow, which includes bscreens */ 
^include (bmenu. n; 

ttdetine haxMenuOotions 10 

tvoeoet struct { 

BMENU <omenu: 
mt coisLnaxfienuOot ions J : 
15 char chars CnaxMenuQpt ions] ; 

int lastLolumn; 

) MENU; 

typede-f struct i 

BWINDOW *wnd; 
WHERE loc ; 
BORDER bord ; 
20 ) WINDOW; 

/♦ -function prototypes */ 

void cdecl InitnenuNindt): /* must be called once b\ Deginmrg < 

void coed hafcemenuirtENU * .char /« uui id a menu siruc*u<-» «/ 

« void cdecl DisplayrtenuiMENU *>; /» display a menu */ 

char coed GetMenu (MENU tj; /« xnput a menu notion «/ 

void cdecl RemoveMenuMENU i) ; /« remove a menu from tne display </ 

void cdecl MaKeWindow (WINDOW * ,mt , mt .char *.int,inU; 

/* build a winaow structure */ 
void cdecl DisplayWindow (WINDOW *): /» display a window *' 
30 void cdecl lMriteWindow(WINDOW *. int, int, int, char *>; 

/* write a strino at a row. col 
void cdecl ClearWindow(WINDQW o; /* clear a window to al'. «=-, a c«=»= 

void cdecl ClearRect (WINDOW * ,mt .int ant ant ) : /♦ clear rect . in window . -■ 
void cdecl AttribRect i WINDOW * ,int , int ant , mt . int ant ; : 

/« change screen attr oi an ar=~ • / 

void cdecl RemoveWmdow (WINDOW /* remove a window *' 

void cdecl Lursor0n(WIND0W «>;. /* turn cursor on within window *< 

35 void cdecl CursorOH (WINDOW *>: /* turn cursor oii withm window ./ 
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voio coed I'latogFromoUchar *. cnar *. char *, int? : 

. _ . r '* prompt -for a response ••» 

• 1 remove dialog window «/ 

void case I bet FileName». char *, char char #>: 

/« prompt for a file name ♦ / 

10 
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/********* *ft* *************************** ********** 

Rholling Stone 
5 <C) 193S Dymx, Inc. 

Session data tile definitions : sessile. n 

K. Brook Richan 
huq 1*S6' 

****#****^****^^>#t^#^^^^^^^^^^^^^ # ^^^^^i^^^j.^^^^ 1 
10 /*** uonstants ***/ 

#def ine MaxTerminal 600 "* 
#defme MaxTransTyoe 
fcdefine TicksPerSec du 



/*** Timings Record ***/ 



15 



typedet struct C 
short 
char 

unsigned short 
unsigned short 
) Timingftec; 



termno; 
opid ; 

stopwatch; 
wallticks: 



/* terminal number */ 

/* operation ic «/ 

/« n clock ticks tor the response time ♦/ 

/* n clock ticks since session becan * : 



20 



25 



30 



35 



short ntranstype: 

short thinktime; 

snort charthrottlei 

snort timeout: 



/«** Session Description **#/ 
tyoedef struct ( 

char machinenameC643,nemorysi2eC6.4],disksi2eCWJ,dataDa=esi'ere.4i 

dateL103 ,t imeC 103 •comment CS363: /* 512 bytes, null terminal st -i-c= • ' 
snort ntermmals; /* no. of terminals used m session */ " 
/* no. of transaction types in session */ 
/* ave. no. of ticks tor inter-epsrat ion think time */ 
/* no. o-f ticks between characters sent */ 
/* no. o-f ticks before signal ino timeout */ 
unsigned char termmaoCrlaxTenniriaU : 

/« tms tells tne transaction type that each terminal is runnino. 
hor examote. it* termmapU173 is 3. tnis means terminal 117 i = 
running transaction type 3. */ 
short trans£xoRate[haxTransType3 : 

/« this tells how manv clock ticks sr.ould be between the star* of 
each transaction. For example, it' transtxoRaieU3 is i&vi'/ t n» 
transaction rate tor transaction tyoe 4 snould be one transaction 
every lcfwj clock ticks (i.e. I minute if 50 ticks per s-cond* 
short maxTransactionsCMaxTransType] ; 

/♦ maximum transactions to orocess in the session tor each ^ne *< 
char tilenameCMaxTransTvDe3C93: ~ " 

/• name o* disk file for the transaction iminus extension;. 
Indicates wnere the script and timing data are stored: 
ti lename .SCP is assembled scrip* 
filename. OP is operation timings 
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filename. TRN is transaction Duration timinos 
r,°n re:,? 016- 14 1llena ™ef£J is "CkO". then CKU.icC. CKD.OP »n- 
U.O.TRN are tne assembled script . ooeration timino- ana 
_ transaction duration timinus. rescect :veiv. -for 'r-r l53 r* .-> r 

.> Sessionlli: 
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jSPN.LNK 



Knday, September it., 1988 



Paas 



spn+ 

get_scr+ 
dowser io+ 
5leeD+ 



5 timer* 



trans_u+ 

io+ 

rnd+ 

so_setup+ 
testport+ 
SD_data+ 
sp_gdata+ 

10 task+ 

interuot+ 

serial 



ct5 m5c 
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/ * * ft * M 

menuwmd .c 

^ Menu and Window handling 

RholUng Stone 

K. Brook Fachan 

(C) l'?SS Dynix, Inc. 

* « # « * * / 

10 #mclude (stadet.h) 
^include '.stdarg.h) 
^include ictvoe.n) 
ffinclude \string.h.' 
^include taos.h) 
ffmcluae ;staiib.h> 
ttinclude 'search. h) 
ttmclude "menuwind >h" 

15 

static WINDOW dialooW: 

static WHERE menuL: 

static BORDER menuB; 

static int cev.active_page; 

MENU STUFF !*****»/ 

2q void cdeci initdenuWind \) . 

int mode .columns ; 

flr.5nut5.tyoe = B&RD_N0_BDRDER : 
menuB.attr = BLACK; 

menuL.dev = aev = scmode (fcraode ^columns, &act ive_page) : 
menuL.oage = active_oage: 
menuL .corner .row = 0; 
" menuL. corner .col = 0: 

Nakewinaowckdialogw,^?*," Dialog Window - ,3,1); 



void coed riaKeMenu(MENU *ms,char «mi,...j 
/* ms is a oointer to a menu struct to be used bv Gethenu 
pass a variable number of menu items in the term: 
30 "Label rDescript lve message" 

Each Label should start with a unique upper case letter 
The last parameter should be "" 

«/ 

( 

int col =0, si, mnum = 0; 
va_list argjnarker; 
cnar labelCSOJ ,keyC33: 

J ^ ms-Jomenu = mncreate(£ ,80 , WHITE » REVERSE ,WHITE , WHITE i INTENSITY) : 
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va_start (argjnarker ,mi > ; 

whi le <*mi !=' \0' ) { a 
S2 = 0; 

5 /* get tne taoel; leave mi oointing to aescriDUon ♦ / 

labelCssJ = '\0' ; * 

£vc5 - C L^,fJi T B r,f ld l ° Wer Ca£e Di < irst X *"*r oi label • , 
kevUO - label tuD: keyUJ = t o lower ( label CO J) : kbvC23 = ' 
/* add menu item to menu */ " ' 

<nnlitfcev(ras->Dfflenu,0,col,MN_NOPRDTECT t labeUl.O mi i-p V 
ln MN.TRANSM1TJMN SELECT); ' -•*< Ke y- 

AU ms->colsLmnum3 = col; 

ms->charsllmnum] = keyCOJ; 

mnum++ ; 

col += sz+2; 

mi = va_arg (arc jnarker , char* » ; 
15 ms-; last Column = 0: ~ ,u , icn* arrow •/ 



void cdecl lusDlayflenutMENU *ms) 

flndsplay(ms->Dmenu,&menuL f kmenuB) ; 

20 

char cdecl Get Menu (MENU *ms) 

/* returns tne menu item character */ 

int row,key,i; 
int ch; 

l* <ch==137 C /* (RETURN) */ 

-for n=0; ms-)colstiD!=ms-)lastColumn: • 
return<ms->charsCiJ) j 

) 

else ii ich—ai) /* <ESC) */ 
return! -Q-) : 

else 

30 return '.toupoer «ch.» » ; 



void caecl fcemoverienu (MENU *ms» 

wnremove ims->Dmenu->pwin> ; 

35 
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/.«»«.**< w I N D 0 W STUFF «*#«*«*/ 

void cdecl flakeWindow (WINDOW « W£ ,int h,int w,char Uitle.int row, int col) 
5 ws: pointer to WINDOW structure; gets built bv this proc „/ 

/« h,w: height V. width of data area of window </ 
/« title: window title * / 

/« ro W ,coli row t* col of upper left corner of data area inot Derd er , 
ws->wna = wncreate(h,w,CYAN) ; 

. : S 1 '"-'^ " «- — ««. 

ws->bora.ttattr = WHITE ! INTENSITY : 
xu ws-/bord.pttitle = title: 

ws-jloc.dev = oev; /* 6S retrieved from 'scaode- W 

ws-Moc.page = active_oage: /* « 
ws-> loc. corner .row = row"; 
ws-> loc .corner .col = col; 



15 void coecl BisolayWinoowCWINDGW *ws> 
C 

int dsp; 

wngetopt (ws-)wnd,WN DEV I CE, &dsp ) ; 
1+ ldso==-£) 

wnasplay(ws->wnd l fc(ws-)toc) ,fc<ws->bord> ) ; 
else 1 

20 wnselect <ws->wnd) ; 



void cdecl WriteWmoowlWINDOW *ws, int row, int col, int ato, char *s) 
/* ws; oointer to which window */ ' 

/« row, col: row and column to position string •/ 
/+ ato: video display attribute for text */ 
25 5: oointer to null terminateo string */ 

wnselect <ws->wnd; ; 
wncurmov trow •col) ; 
wnwrstr (s,atb,-l) ; 



void coecl CiearWinoow (WINDOW *ws) 
30 ( 

wnselect (ws-)wnd) ; 
wnscroll <0.-i ,-1 .3CRJJP; ; 
wncurmov (0,0) ; 



void cdecl ClearRect (WINDOW «ws,int r,int cant h.int wj 
/< clear a rectangular area of a window. 

r,c: upper left row h column of area to clear 
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h,w: height It width of area to clear */ 

^ wnscrblk<ws->wnd,r,c,r+h-l ,c+w-l ,-1 ,-1 ,WNSCR^UP,0,WN_UPDATE) ; 

5 t 

void cdecl At trioRect (WINDOW *ws,int r,mt c,int h,int w f ini fore, int bad-; 
/» changes screen attribute of a rectangular area of a window. 

r,c: upper left row k column ot area to clear 

h.w: height k width of area to clear 

•fore, back: attribute of foreground , background <-l for no change) 
hint - use fore=BLACK, back=WHITE for rpv°r=p « •' 

10 ( 

^ wnatrblk im->wna ,r ,c ,r+h-i ,c+w-i , fore, back ,HNJJPBATEj ; 

void cdecl RemoveWinaow (WINDOW *ws) 

C 

wnremove*ws->wnd) ; 

15 : ' 

void cdecl CursorOm WINDOW «ws) 
( 

wnsetopt(ws-)wnd.WN_CUR_OFF,0) ; /« enable cursor »/ 
wncursoriws->wndi : /+ set cursor to tms wmcow «/ 

20 

void cdecl Cur sorOff (WINDOW *ws) 
I 

wnsetopt iws->wnd,WN_DJR_0FF,l) ; /* disable cursor */ 
wncursortws-/wnd; : /* set cursor to this winnow ♦ 



25 /«***##« DIALOG STUFF «*****»/ 

void cdecl DiaiogPromot i.char *prompt. cnar *dftt. cnar « response, int siz*; 
/* disolav a orompt and return the users resoonse. 

size is max size (in bytes) of response 
^ if user presses (RETURN) only, dflt is returned as response •/ 

int key; 
2q char respCSOD; 

ClearWindowi&dialogW) ; 
DisplayWindowi&dialogW) : 

wnselect (dialogW.wnd) ; * 
wnwr st r ipromD t . WHITE ! I N f ENS I TV , - 1 ) ; 
wnwrstr (" WHITE ,-1) 5 
wnwrstrtdf It, WHITE. -1) : 
wnwrstr 1"} »\ WHITE,-!) ; 
35 wnwrstr l 1 ) .WHITE ! INTENSITY .-i) : 
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CursorOn(koialogW> ; 

wnouery iresp,sireof (resp) ,fckey) ; 

14 l*resD~'\0') strcpy(response,df It) ; 
c else strcpy (response, resp) • 

J RemoveWindow(kdialoaW) : 



void cdecl DialoaMsa icnar *mso> 
C " " ' 



CleartoindowCScdialogW) ; 
DisplayWindow(Wia'logW) ; 
10 CursorOff (kdialogto) ; 

WriteWindow(fcdi&logW,0,O.WHITE:iNTENiITy,fnsQ; ; 



void cdecl La a loaRemoveu 

L 

Remo vew i ndow i ka l a I og W ) ; 

15 5 



F 1 L h ME N U STUFF 



vo!o cdecl fcetFueNameichar * D r D mDt. char *dfltwild. char Mn^i 
/« Dromot: prompt to user »/ 

II ^ft' e! ,H 7l Ur w tne namB ChOSen? nuU li none ' « ust be Isast 80 tvt«« 
/« dntwna: default path, contaming. wild cards; returned changed </ 

unsigneo result; 
struct find _t tileinfo; 

n+ i les , nrows , l ,r ,c.ch , kev : 

filesC503tH3; /« 100 causes stack overflow' */ 
♦fmenu : 
w; 
b; 

kevsC33 ; 



20 



mt 
char 
fcf1ENU 
WHERE 
25 BORDER 
char 



30 



35 



DialogPromot iprompt ,df Itwild ,fname,Q0> ; 
it (strchr it name . '* * NULL) return: /* no wild card */ 
strcpvidfltwild,tname>; /* wild char input, assion new default </ 
ntiles =0; 

result = _dos_fmaf irst CdfVtwild, A N0RMAL,fc*i leinf o) : 
while Uresult == 0) hk (nfiles(50)7 C 

strcov<fileslnfiles++3,fileinfo,namei ; 

result = _dos_f mdnext ikf l leinfo) ; 

it mfiles==0) (fnameC03='\y ; return;} 
osort Ki lles.nf l lesa^.strcmo; : 
nrows = nfiles/5 + tnti les%5)0; : 

tmenu = mnc r e a t e nr ows , 7£ . NORMAL • RE VhkBE . NORMAL . NORMAL » : 
for ii=0; l unfiles; it-*; ( 

keysC03=f ilesCiJLOJ; keysC 1 3=tolower <t;ey 5 C03) : KeysEe3= • \0 
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mni t mfcev i f menu , 1 /5 , ( i fc5) * 1 5 ,MN_N0PR0TECT , 
i 1 1 es I i D > keys . MN_SELECT ) : 

5 mnkev^fljenu,0,0,32,57,MW w NEXT,MN.ADD; ; /» set -.SPACE. 4 to riant arrow 

w * oev = dey s w.page = active_paoe: w. corner .row = w!«-c*rw '« ' 
t>.ty D e = fceRB_DDBD !BBftO_rCT ; /* sinaie line border , toe -e^ -r'ti' i* 
b.attr = MA6ENTA: " 
b.ttattr = WHITE! INTENSITY s 
b.pttitie = dfltwila: 
mndsDlay(fmenu,&w,&b) ; 

mnreadvfmenu,0.0,&r.k:.tah.&key.!W DESTROY) : 
if (cn==£7) tname£0]='\0'; 
10 else ( /* form full file name */ 

/* get oath name, if any */ 

/* remember, fname is the same as afltwild to here */ 
for <i=strlen<fname)-l : 

(i>=0> kfc ifnamem !=' : ') &k (fnaraem \ • 

1— ) ; 

fname£i+13 = '\0'; /* if : or \ not found, set frame to null 
/* if found, fname set to path */ 
15 /« append file name to path */ 

strcat (f name.f ilesC (r*5) + <c/15) 1) ; 

) 



20 
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scrim Processor for only DNE oort without a master 

<C) copyright 1988 Dynix, Inc. 
bitten dv: J. Wayne Schneider 
5 date: 10 August 1988 

SP1 script_file_name Cscript.arguments. . .] [ <data_f i lename} 

This program reads the script -file soecifieri „„ 

and processes n on mm n\ l * s P ecitle «> °n the coawnana line 



fcincluae iDios.n; 

^include tcomo.h) 

#mclude imalloc.h) 

^include istdiD.h) 

^include "sp.h" 
^include ,, sD_flata.h M 
* include? "ses_file.h" 

struct t_st.- trans: 

FILE ♦ses__ti ie; 

20 mam targe, argvj mt-argc: char *argvC3: C 
char *5cript ; 
char *rx_buffer; 
long length: 

trans_init Ifetrans, ^global) ; 

if large ==1) ( 

25 outs ("Specify a script file to process'") • 

exitU;; ' ' 

J 

script = get .script (argv[13 ^length, op _iojdsq) ; 

Dnntf ("SCRIPT - y.s\n" -op^id^msgCOD) ; 

30 rxj>ufter=malloc<£048> ; 

if (rx_oufter == NULL) { 

putsi w Not enough memory for rx buffer'") • 

) 



35 



sessile = fooenC'SPl .0P M % "wb") : 
if \se=_tiie == NULL- 

Derrorr'ooen tailed"); 
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memset <rx_bu«f ter ,0,E043> ; 

senai_init tr/?*u0,0xQ3,0x0B, 0x1, rebutter ,204SMbfM0KE W ■ . • 
nmer_mit O ; " ' 

senal^init ..interrupt ll ,0J ; 

eo_scnpt a, script /length •fearcvLc: j, r*_Duffer + r.btransi: 

senal__init_interrupt U,l) ; 
timerjandoO ; 
fcloseises tile) ; 
) 

10 

procedure CHECKJjUT 
tS'e-it" 1106 15 CaUed bV °°- 5Cript to see l * the orator has UMd us 

25 void check out U 
( 

char c; 

H ^ 4 "J^<J^J«W» n give uo , when commanded */ 

l-f (<char^biosJieybrd(J<EYBRr^READ) == ESC) 

pnntf ( n \nA = abort, anything to continue ?*>: 
20 c = toiipDerUchar)_biosJcevbrdi KEYBRD READ; • ' 

Duts( ,Ml .<; " " 

It ir == 

trans.aoort = Tkue: 

} 

3 

25 

/* Dummv routine -for scheduling is here */ 
void reecheaiueO u 

/* Terminal routines here replace communication to master «/ 

void process i com?-;, numb; 
30 int comx, numb: 
{ 

prints "PROCESS - Xd - *s\n" ,comx,OD_id_msgr nura0 ^ : 

mt reoort Ccomx,numb) 
int comx, numb: 

char c: 

onntt ("REPORT - fca - fcs\n" .ccm:c,staius_msaCnumD] . ; 



Paae £ 
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if (numb == £) 

f 



Drintf("\nA = abort, anything to continue ?-): 
c = touooer 1 ichar;_oio5jieybrdt KEVBRD REMD) > : 

it ic == 'A'> 
return TRUE; 



return FALSt; 
J 



void checkpoint <com;<,op_id ,op_time, wall time) 
10 in: com*;, op_id; 

long oc_time, wall_time; 
t 

TinungRec t; 



15 



i+ '.OD_ia == 01 orint-f ("TRANSACTION times Xld %ld\n-,op ti^, wa li 
eise or int tr CHECK POINT tor M - Vis is xld at unw? ~ 
coax , op _i a jnsg £ op .1 d 3 , od jl i me , wa U _« i me J ; 

i . termno » comx ; 
t .ODid = op_id ; 
V. stopwatch = op_time: 
t.wallticks = waU_time; 

fwriteUt. sizeof (TinungRec), 1, sessile); 

int get_aataivar; 
20 char varE10]£803( 
C 

int : ; 

•for u=i ;i (10:i++/ 
r 

-•rintf ("getvar:") : 
geisivarLi2) : 
25 Duts( MM j; 

it <strcmp(varCi3 , M END M ) == 0) return EOF ; 

if 1st r crop i var L 1 2 i UM ) ==0) oreak: 

) 

return NULL: 
) 

int wait_+or_operator () 
30 « 

print* ("\nwaitmg tor operator. Press any kev:"«: 
.Dio5j:evord iJ<EiWiDJ£fto) : 

PUts<"" ) ; 

) 

int do_exit tconxJ 
int coo:;-:: 

35 1 



SUBSTITUTE SHEET 



WO 90/10269 



PCT/US90/01026 



-210- 

TuBSday, October IS, 



10 

15 

20 
25 
30 
35 

SUBSTITUTE SHEET 



1 SPl .c 



rsturn TRUE: 
} 
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/* Here are routines -for giving audio response. The chirrup tune 
is a positive signal that may be used to indicate success. The 
sad tune is used to indicate failure. 

5 (C) copyright Dynix, Inc. 

written by: J. Wayne Schneider 
date: 21 September 19SS 

*/ 
/* 

flake a cheerful tune on the beeper 

*/ 

1® chirruo_tuneO 
( 

sleep (1) ; 
utspkrtbOO); 
sleep (2) ; 
titspkr (800) : 
sleep (2) ; 
utsokr (900) : 
15 sleep (£) ; 

utsokr (0; : 
) 

/* 

Make a sad tune on the beeper to indicate -failure 

*/ 

sad_tune() 

20 c 

utspkr(200); 

sleep(lO) : 
utspkrClOO) ; 
sleep (10) ; 
utsokr (O) ; 
} 

25 
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I claim: 

1. A system for evaluating the performance of a 
large scale computer system having a number of host 
communication ports each capable of connection to a 
terminal, the system comprising: 

a plurality of central processing units 
(CPUs) each having an internal parallel communication 
path; 

a plurality of CPU communication ports , each CPU 
communication port being connected to the parallel 
communication path provided at each one of the 
plurality of CPUs; 

means for coordinating the function of a varying 
number of the plurality of CPUs; and 

means for individually interconnecting a 
plurality of the CPU communication ports to a 
plurality of the host communication ports such that 
each CPU communication port appears as a specific 
terminal to the host communication port connected 
thereto • 

2. A system for evaluating the performance of a 
large scale computer system as defined in claim 1 wherein 
one of said plurality of CPUs comprises means for 
recording the response time on a plurality of said host 
communication ports. 

3. A system for evaluating the performance of a 
large scale computer system as defined in claim l wherein 
the plurality of CPUs comprises at least five CPUs. 



35 
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4. A system for evaluating the performance of a 
large-scale computer system as defined in claim 3 wherein 
the CPU communication ports comprises at least eight 
communication ports provided on each CPU. 

5. A system for evaluating the performance of a 
large scale computer system as defined in claim 3 wherein 
each CPU communication port comprises means for converting 
parallel data communicated from the internal communication 
path provided in a CPU to serial data to be transmitted on 
the means for individually interconnecting. 

6. A system for evaluating the performance of a 
large scale computer system as defined in claim 1 wherein 
the number of host communication ports comprises at least 
640 host communication ports. 

7. A system for evaluating the performance of a 
large scale computer system as defined in claim 1 wherein 
the plurality of CPUs comprise a master CPU and a 
plurality of slave CPUs. 



8. A system for evaluating the performance of a 
large scale computer system as defined in claim 7 further 
comprising a plurality of communication paths established 
between the master CPU and each of the plurality of slave 

CPUs. 

9. A system for evaluating the performance of a 
large scale computer system as defined in claim l wherein 
the means for coordinating the function of a varying 
number of the plurality of CPUs comprises a master CPU. 



SUBSTITUTE SHEET 



WO 90/10269 



PCT/US90/01026 



10 



15 



20 



25 



30 



-214- 



10. A system for evaluating the performance of a 
large scale computer system as defined in claim 9 wherein 
the plurality of CPUs comprise a plurality of slave CPUs 
each connected to the master CPU. 

11. A system for evaluating the performance of a 
large scale computer system as defined in claim 10 wherein 
the plurality of slave CPUs comprises 32 slave CPUs. 

12. A system for evaluating the performance of a 
large scale computer system as defined in claim 1 wherein 
the means for individually interconnecting comprises a 
plurality of electrical connections, each electrical 
connection being between a CPU port and one of the host 
communication ports. 

13. A system for evaluating the performance of a 
large scale computer system as defined in claim 12 wherein 
each electrical connection comprises a cable connected 
between each CPU port and each of the host communication 
ports . 

14. A system for evaluating the performance of a 
large scale computer system as defined in claim 1 wherein 
each of the CPUs is a substantially less powerful 
computing device than the host computer system. 

15. A system for evaluating the performance of a 
large scale computer system as defined in claim 1 wherein 
the plurality of CPUs comprises a plurality of 
microcomputers . 
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16. A computer performance evaluation robot capable 
of evaluating the performance of a large scale host 
computer having a plurality of host communication ports, 
each port capable of being connected to a terminal, the 
system comprising: 

processing means for carrying out functions to 
emulate a plurality of terminals; 

port means for establishing a bi-directional 
communication pathway with the processing means and 
the plurality of host communicatio ports; 

connection means for connecting each active host 
communication port with the port means; and 

means for selectively increasing and decreasing 
the number of host communication ports which may be 
connected to the port means. 

17. A computer performance evaluation robot capable 
of evaluating the performance of a large scale host 
computer as defined in claim 16 wherein the processing 
means comprises a plurality of CPUs. 



18. A computer performance evaluation robot capable 
of evaluating the performance of a large scale host 
computer as defined in claim 17 wherein the plurality of 
CPUs comprises a master CPU and a plurality of slave CPUs 
and a communication path established between each slave 
CPU and the master CPU. 
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19. A computer performance evaluation robot capable 
of evaluating the performance of a large scale host 
computer as defined in claim 17 wherein the processing 
means further comprises means for generating electrical 
signals to emulate a terminal which is adapted to be 
connected to one of the host communication ports. 



20. A computer performance evaluation robot capable 
of evaluating the performance of a large scale host 
computer as defined in claim 17 wherein the port means 
comprises a plurality of serial communication ports 
provided on the master CPU and each of the slave CPUs. 

21. A computer performance evaluation robot capable 
of evaluating the performance of a large scale host 
computer as defined in claim 20 wherein the connection 
means comprises a plurality of cables connecting the 
serial communication ports on the master and slave CPUs to 
the host communication ports. 
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22. A computer performance evaluation robot for 
determining the response times of a large scale host 
computer running any of a plurality of multiuser 
5 application programs and having a plurality of host 
communication ports, each host communication port being 
capable of being connected to a terminal, the system 
comprising: 

a plurality of processing devices; 
1Q means for coordinating the functions of a 

variable number of processing devices; 

a plurality of robot communication ports 
connected to each processing devicfe; 

means for individually connecting a plurality of 
^ the robot communication ports to the plurality of 

host communication ports; and 

means for recording the difference between the 
time when a command is presented at each of the robot 
communication ports and the time that an expected 
response is output from the respective host 
communication port such that the number of response 
times of the host computer at a specified number of 
transactions per unit time can be determined. 
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23. A computer performance evaluation robot for 
determining the response times of a large scale host 
computer having a plurality of host communication ports as 
defined in claim 22 wherein the plurality of processing 
devices comprises a plurality of individual central 
processing units (CPUs) . 
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24. A computer performance evaluation robot for 
determining the response times of a large scale host 
computer having a plurality of host communication ports as 
defined in claim 23 wherein the plurality of CPUs are 
interconnected and one CPU acts as a master CPU to 
Coordinate the functions of the remaining slave CPUs and 
wherein the means for coordinating the operation of at 
least two processing devices comprises the master CPU. 

25. A computer performance evaluation robot for 
determining the response times of a large scale host 
computer having a plurality of host communication ports as 
defined in claim 22 further comprising means for varying 
the rate at which transactions are presented to the host 
computer and means for varying the rate at which 
characters are presented to the host computer. 

26. A computer performance evaluation robot for 
determining the response times of a large scale host 
computer having a plurality of host communication ports as 
defined in claim 22 wherein the plurality of processing 
devices comprises a plurality of microcomputer devices 
each of which is substantially less powerful than the host 
computer. 

27. A computer performance evaluation robot for 
determining the response times of a large scale host 



SUBSTITUTE SHEET 



WO 90/10269 



PCT/US90/0I026 



10 



15 



20 



25 



30 



-219- 

computer having a plurality of host communication ports as 
defined in claim 22 wherein the means for individually 
connecting a plurality of the robot communication ports 
comprises a plurality of electrical conductors which^ are 
adapted to interconnect one robot communication port to 
one host communication port. 

28. A computer performance evaluation robot for 
determining the response times of a large scale host 
computer having a plurality of host communication ports as 
defined in claim 22 wherein the host communication ports 
and the robot communication ports comprise serial 
cbmmunication ports. 

29. A computer performance evaluation robot for 
determining the response times of a large scale host 
computer having a plurality of host communication ports as 
defined in claim 22 further comprising a terminal 
connected to one of the processing devices and means for 
logically connecting the terminal to any one of the host 
communication ports. 

30. A computer performance evaluation robot for 
determining the response times of a large scale host 
computer having a plurality of host communication ports as 
defined in claim 22 wherein the means for recording the 
difference between the time when a command is presented 
and the time that an expected response is output from the 
host communication port comprises a digital memory device. 
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31. A system for evaluating the performance of a 
large scale host computer having a plurality of host 
serial communication ports, each host serial communication 
port capable of being connected to a terminal, the system 
comprising: 

a master CPU having substantially less computing 
capacity than the host computer and also comprising 
a plurality of master serial communication ports; 

a plurality of slave CPUs, each slave CPU having 
less computing capacity than the master CPU and also 
comprising a communication port connected to one 
master serial communication port and a plurality of 
slave serial communication ports; 

a plurality of electrical conductors adapted for 
connecting the plurality of slave serial 
communication ports individually to each of the 
plurality of host serial communication ports such 
that a serial communication path is formed between 
each of the host communication ports and one slave 
communication port; and 

means for recording the time difference between 
when each of a plurality of requests for carrying 
out a transaction is made to the host computer and 
the time that an identifiable response is received 
at the corresponding host serial communication ports 
such that the times required for each transaction may 
be analyzed to evaluate the host computer's 
performance. 
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32. A method of evaluating the performance of a 
multi-user large scale host computer system having a 
plurality of host communication ports capable of having a 
plurality of user terminals connected thereto, the host 
computer system also capable of carrying out a plurality 
of tasks , the method comprising the steps of: 

providing a plurality of CPUs, each CPU having 
substantially less computing power than the host computer 
and being provided with a plurality of CPU communication 
ports; 

interconnecting the CPU communication ports 
individually to the host communication ports provided on 
the host computer system such that each CPU communication 
port appears to the host computer to be a terminal; 

presenting at a first CPU communication port a 
request that the host computer carry out a first task; 

presenting at a second CPU communication port a 
request that the host computer carry out a second task; 

retrieving data from a first data pool accessible by 
each of the plurality of CPUs, the data being necessary to 
carry out the first task; 

entering the data to the host computer at the first 
CPU communication port; 

retrieving data from a second data pool accessible by 
each of the plurality of the CPUs, the data being 
necessary to carry out the second task; 

entering the data to the host computer at the second 
CPU communication port; 

timing the period which is required for the host 
computer to complete the first task and the period which 
is required for the host computer to complete the second 
task; and 

recording the time required to complete the first 
task and the time required to complete the second task 
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in a digital memory device such that the performance of 
the host computer may be analyzed • 

33 . A method of evaluating the performance of a 
multi-user large scale host computer system as defined in 
claim 32 wherein the step of providing a plurality of CPUs 
comprises the step of providing a plurality of 
microcomputers . 

L0 

34. A method of evaluating the performance of a 
multi-user large scale host computer system as defined in 
claim 32 wherein the step of interconnecting the CPU 
communication ports comprises the step of establishing a 
serial communication path between each active host 

^ communication port and a CPU communication port. 

35. A method of evaluating the performance of a 
multi-user large scale host computer system as defined in 
claim 32 wherein the step of presenting at a first CPU 
communication port a request comprises the step of 
beginning a first transaction to be carried out by the 
host computer. 
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36. A method of evaluating the performance of a 
multir-user large scale host computer system as defined in 
claim 32 further comprising the steps of: 
5 presenting at a third CPU communication port a 

request that the host computer carry out a third task; 

presenting at a fourth CPU communication port a 
request that the host computer carry out a fourth task; 
retrieving data from the third data pool necessary to 
Q carry out the third task and entering the data to the host 
computer at the third CPU communication port; 

retrieving data from a fourth data pool necessary to 
carry out the fourth task and entering the data to the 
host computer at the fourth CPU communication port; 
5 timing the period which is required for the host 

computer to complete the third task and the period which 
is required for the host computer to complete the fourth 
task; and 

recording the times required to complete the third 
task and the time required to complete the fourth task in 
a digital memory device such that the performance of the 
host computer may be analyzed. 
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